Re: Memory limits in Ada where Fortran has none

["braver" <deliverable@gmail.com>]

My working solution is probably what you mean by access function.

I could import a Fortran variable from a subroutine by compiling the
Fortran module with -fno-automatic, but then I'd still have to declare
it in Ada first -- and hit the size limit, or try to turn off index
checking, which is bothersome.

So instead, I keep the array in Fortran.  And as Ada's array access was
designed to look the same as a (memoized) function, Fortran being the
same, I declare, in Fortran,

      FUNCTION ND(I)
      COMMON /NDD/NNDD
      DIMENSION ND(PARAMETER MMAX=100 000 000)
      ND = NNDD(I)
      RETURN
      END

and in Ada,

   function ND(I: Positive) return Integer;

   pragma Import (Fortran, ND,
                    External_Name=> "ND",
                    Link_Name=> "nd_"
        );

   pragma Inline(ND);

-- import ND, inline it, et voila!  I create a package Lord_Fortran to
do the importing/inlining, and just with/use it.  It is actually
surprisingly fast even without turning off range checking.

>From now on, I allocate data arrays longer than 256*256*1024 elements
in Fortran.  As people guessed correctly, I use GNAT -- what else can I
do on Linux, given I can't find a downloadable/trial copy of Rational
Apex, even though IBM took over it?  As for patches -- anyone heard of
a 32-bit 'Size / 'Storage_Size patch to GNAT?

Cheers,
Alexy