fortran测试动态分配内存大小

program TestArray
implicit none

!integer n,i,k
integer*8 n,i,k
real,allocatable:: a(:)

n=3

k=10000000      !1千万
!do i=1,50
do i=1,2
    !n=n+k*5   !每次增加5千万
    allocate(a(n*1024*1024*1024))
    a=0.0
    write(*,*) n,'GB分配成功'
    deallocate(a)
end do

end program TestArray