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
X-Google-Attributes: gid103376,public
From: husseinp@logica.co.uk (Paul Hussein)
Subject: Re: Interface programming
Date: 1996/08/19
Message-ID: <4v988h$drs@romeo.logica.co.uk>#1/1
X-Deja-AN: 175206029
references: <4v8pj1$7n2@hermes.acs.unt.edu>
organization: Logica UK Ltd.
newsgroups: comp.lang.ada
Date: 1996-08-19T00:00:00+00:00
List-Id: <comp.lang.ada>


mantri@ponder.csci.unt.edu (Ramesh S. Mantri) wrote:
I think your pragma needs a corresponding interface name pragma.
>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);
                 pragma INTERFACE_NAME ( SQRT, "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