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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,8c040575fda600b7,start
X-Google-Attributes: gid103376,public
From: mantri@ponder.csci.unt.edu (Ramesh S. Mantri)
Subject: Interface programming
Date: 1996/08/19
Message-ID: <4v8pj1$7n2@hermes.acs.unt.edu>#1/1
X-Deja-AN: 175025407
organization: University of North Texas
newsgroups: comp.lang.ada
Date: 1996-08-19T00:00:00+00:00
List-Id: <comp.lang.ada>


Hi,
	Need help with interface programming. I need to invoke a 
Square Root function in a program. So I tried interfacing to Fortran
as follows :
	procedure SOMEPROC is
	  package FORT_LIB is
	    function SQRT(X:FLOAT) return FLOAT;
	  private
	    pragma INTERFACE(FORTRAN, SQRT);
	  end FORT_LIB;
	  NUM : INTEGER;
	  NUMROOT : FLOAT;
	begin
	  GET(NUM); 
	  NUMROOT := SQRT(FLOAT(NUM));
	end SOMEPROC;
It is displaying a warning at the "pragma" line, and declaring "SQRT"
as and undefined identifier, in the line "NUMROOT := SQRT(FLOAT(NUM));".
If you have time, please take the trouble of informing me as to how to
rectify this. Also, the warning dispayed at the "pragma" line reads
approximately as : "... parameter types. SYSTEM.ADDRESS expected..."
Thanks for your patience.
--- Ramesh Mantri