From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,a277322e4aa032bf
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2001-04-30 07:00:18 PST
Path: 
 newsfeed.google.com!newsfeed.stanford.edu!skynet.be!news.tele.dk!194.213.69.151!news.algonet.se!newsfeed1.telenordia.se!algonet!newsfeed.sunet.se!news01.sunet.se!news.chalmers.se!dd.chalmers.se!not-for-mail
From: f97stdi@dd.chalmers.se (Staffan Dittmer)
Newsgroups: comp.lang.ada
Subject: Re: math: passing function to function
Date: 30 Apr 2001 13:51:37 GMT
Organization: Chalmers University of Technology, Sweden
Message-ID: <9cjql9$p1f$1@eol.dd.chalmers.se>
References: <9cjham$lu4$1@eol.dd.chalmers.se>
    <3AED53F7.FAED7F1@earthlink.net>
NNTP-Posting-Host: elwing.dd.chalmers.se
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Newsreader: knews 1.0b.1
Xref: newsfeed.google.com comp.lang.ada:7049
Date: 2001-04-30T13:51:37+00:00
List-Id: <comp.lang.ada>

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