Re: urgent question - generics

[anon@anon.org (anon)]

Your code does not solve any form of the lady's question! Which stated that 
the procedure did not have a parameter!

I answer how to call a procedure from a function, where the procedure was 
passed in the functional pararmeter list. 

In <d62dne6o2JJxrkHbnZ2dnUVZ_iydnZ2d@comcast.com>, tmoran@acm.org writes:
>>  procedure test is
>>    begin -- test
>>      Ada.Text_IO.Put_Line ( "Testing" ) ;
>>    end test ;
>>
>>
>>  Result : Float ;
>>
>>begin
>>  Result := function_0 ( test'address, 0.5 ) ;
>>end zzero ;
>   Ada is designed so the compiler can help catch errors, but if you
>would rather hide the nature of the parameter to function_0 from the
>compiler, and use a debugger to find the resulting errors yourself, try:
>     procedure test1(x : in Integer) is
>     begin
>       Ada.Text_IO.Put_Line ( "Test1" & Integer'image(x));
>     end test1;
>
>     test2 : float;
>
>and
>     Result := function_0 ( test1'address, 0.5 ) ;
>     Result := function_0 ( test2'address, 0.5 ) ;