!-----------------------------
Program TESTT
integer*8, parameter :: N=2048**3
real*4, dimension(N) :: x

write(*,*) 'N=',N
do i=1,100000
  x(i) =i
enddo
write(*,*) (x(i),i=1,100)
write(*,*) (x(i),i=10000,10100)

stop
end Program TESTT