編譯器版本是
Intel(R) Fortran Intel(R) 64 Compiler XE for applications
running on Intel(R) 64, Version 12.1.4.319 Build 20120410
系統是 64位元 Linux fedora core 14
kernel版本 2.6.35.14-106.fc14.x86_64 #1 SMP
4 GB 的記憶體
以下是程式碼:
如果將最後一行註解 write(*,*) v5(100)
就可以編譯,且成功正確執行。
真的很奇怪!
program hmwf
implicit none
integer(4),parameter :: lmax=45000000
real(8),dimension(lmax) :: v1,v2,v3,v4,v5,v6
integer(4) :: max,i,j
real(8) :: su1,su2,su3
max=45000000
do j=1,100
su1=0.d0
su2=0.d0
su3=0.d0
do i=1,max
v1(i)=1.d10
v2(i)=v1(i)
v3(i)=v1(i)
v4(i)=v3(i)
v5(i)=v3(i)
v6(i)=v3(i)
su1=su1+v1(i)**2
su2=su2+v2(i)**2
su3=su3+v3(i)**2
enddo
write(*,*) 'j=',j,v6(max),v4(1)
enddo
write(*,*) v5(100)
end program hmwf