Re: math: passing function to function

[f97stdi@dd.chalmers.se (Staffan Dittmer)]

Thanks for replies.
Giving up on the access to subprogram approach for now
since I've had better success with the generic approach.

This seems to work the way I want it, also probably less 
prone to self induced constraint errors ...
 
package Root_Pak is
   generic
   with function Fun(X:Float) return Float;
   function Root(X1,X2:Float) return Float;
end Root_Pak;

package Fun_Pak is
   function To_Solve(X:Float) return Float;
end Fun_Pak;

with Text_Io,Fun_Pak,Root_pak;
use Text_Io;
procedure calc is
   function Solve is new Root_Pak.root(Fun_Pak.To_Solve);
   X1,X2:Float:=4.0;
begin
   Put_Line(Float'Image(Solve(X1,X2)));
end calc;

/ Staffan