[Fortran] 纯文本查看 复制代码 program ex0912
implicit none
Real(kind=4), Allocatable :: A(:)
Integer(kind=1), Allocatable :: B(:)
Allocate(A(10))
Allocate(B(20))
A=10
B=20
A(-20)=1
B(-1000)=100
write(6,*)A(:)
write(6,*)A(20)
write(6,*)B(:)
write(6,*)B(-1000)
stop
end program
有点困惑,用SIMPLY FORTRAN 编译上述代码,为何还能运行?
|