  PROGRAM main
   IMPLICIT NONE

   REAL, DIMENSION(:), ALLOCATABLE :: A
   INTEGER i;

   ALLOCATE(A(100000000))		

   DO i = 1, 100000000
      A(i) = i + 10
   END DO

  END
