Re: Interface programming

[dewar@cs.nyu.edu (Robert Dewar)]

Ramesh asks about

        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;

SQRT is not directly visible at the point of call, so the compiler is
right to reject it. Indeed the only possible explanation of putting 
the function inside an internal package is to make sure that it is not
directly visible. I suspect some fundamental misunderstanding of
Ada visibility rules here!