Simply Fortran开启数组越界检查

静待花开

[Fortran] 纯文本查看 复制代码

查看代码

打印?

01	program ex0912

02	implicit none

03	Real(kind=4),    Allocatable :: A(:)

04	Integer(kind=1), Allocatable :: B(:)

05	Allocate(A(10))

06	Allocate(B(20))

07

A=10

08

B=20

09

A(-20)=1

10	B(-1000)=100

11	write(6,*)A(:)

12	write(6,*)A(20)

13	write(6,*)B(:)

14	write(6,*)B(-1000)

15

stop

16	end program

有点困惑，用SIMPLY FORTRAN 编译上述代码，为何还能运行？

楚香饭

默认情况下，不会进行越界检查。
你可以在这里设置 -fcheck=bounds ，让编译器进行越界检查。

如图， Project 菜单 , Options...：

静待花开

非常感谢，解决了。高手。