------- Comment #4 from jv244 at cam dot ac dot uk  2009-04-15 17:03 -------
> But, it does not do
> what you expected!  Try using your allocated array in something
> other than SIZE().

It's doing exactly what I expect... including the size intrinsic returning a
garbage result because it returns a default integer.

> cat test.f90
INTEGER*8 :: N
INTEGER, DIMENSION(:), ALLOCATABLE :: data
N=2_8**32
write(6,*) N
ALLOCATE(data(N))
data(1:N)=0
write(6,*) SIZE(data,1)
END
> gfortran -O2 -fbounds-check test.f90
> ./a.out
           4294967296
           0


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39772

Reply via email to