Re: Multiple procedures in the same adb file?

[Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>]

On 01/11/2015 11:37 AM, John Smith wrote:
> 
> ===============================================================================
> procedure a_test(A, B : Integer; C : out Integer) is
> begin
>   C := A + B;
> end a_test;
> 
> procedure test_procedure is
>   output : Integer;
> begin
>   a_test(23, 34, output);
> end test_procedure;
> ===============================================================================
> 
> And this is the compilation error that I got:
> ===============================================================================
> % gnatmake -g test_procedure.adb
> gcc -c -g test_procedure.adb
> test_procedure.adb:16:01: end of file expected, file can have only one compilation unit
> gnatmake: "test_procedure.adb" compilation error
> ===============================================================================

GNAT only allows a single compilation unit per file. A compilation unit is a
subprogram declaration, subprogram body, package specification, or pkg body. You
have 2 subprogram bodies in a single file, so GNAT rejects it. Some other
compilers have no problem with multiple compilation units in a single file.

for a simple program like this you probably want to nest A_Test in Test_Procedure:

procedure Test_Procedure is
  procedure A_Test (A : in Integer; B : in Integer; C : out Integer) is
  begin -- A_Test
    C := A + B;
  end A_Test;

  Output : Integer;
begin -- Test_Procedure
  A_Test (A => 23, B => 34, C => Output);
end Test_Procedure;

-- 
Jeff Carter
"It's all right, Taggart. Just a man and a horse being hung out there."
Blazing Saddles
34