Can't create executable file.

[oktawian.lagiewski@gmail.com]

When i use gcc - program.adb i get two new files (ali and o). I wanted to create
executable so i typed gnatbind program but i get message:

"program.adb:1: Program cannot be used as a main program.
Help me please, I'm trying to learn but there is not much info about command prompt compiling. Below is the code for .adb and .ads :

--program.adb

with Ada.Text_IO;
use Ada.Text_IO;

Package body Program is

	procedure program2 is

		begin
		Put_Line ("to jest program!");
	
	end program2;

	function testy(A: in out Integer)return Integer is
		Average: Integer;
		begin
		Average:= 2*A;
		Put_Line("A is equal to: " & Integer'Image(Average));
		return Average;
	end testy;

end program;




-------------------------------------------

--program.ads

package program is

	procedure program2;

	function testy(A: in out integer) return Integer;

end program;