Re: Memory limits in Ada where Fortran has none

[Robert A Duff <bobduff@shell01.TheWorld.com>]

"braver" <deliverable@gmail.com> writes:

> I'm interoperating with a Fortran algorithm using a very large array of
> integers:
> 
>       PARAMETER (NMAX=100000000) ! a hundred million
>       DIMENSION ND(NMAX)
> C ...
> 
> In Ada, I declared it as
> 
>    type Intarray is array (Positive range <>) of Integer;
> 
>    ND: Intarray(1..NMAX); -- (1)
> 
> -- then I get a STORAGE_ERROR right about NMAX is 2_000_000.

The following works for me:

package Test_Pkg is
    X: array (1..400_000_000) of Integer := (others => 999);
end Test_Pkg;

with Test_Pkg; use Test_Pkg;
with Text_IO; use Text_IO;
procedure Test is
begin
    Put_Line(Integer'Image(X(X'Last)));
end Test;

I'm using GNATPRO version 5.03a on a windows machine with about 1 GB of
RAM.  It takes about 2 minutes to run.  And I can hear the disk clicking
wildly!  But I don't get Storage_Error, and it prints 999 as expected.

- Bob