[Fortran] 纯文本查看 复制代码 integer dim
parameter (dim=2)
double precision dvx(dim), x, y, z
if(dim .eq. 1) then
x=2.0+dvx(1)
elseif(dim.eq.2) then
x=2.0+dvx(1)
y=2.0+dvx(2)
else
x=2.0+dvx(1)
y=2.0+dvx(2)
z=2.0+dvx(3)
endif
stop
end
debug下提示错误:
I:\visual studio 2010\test\test\Source1.f90(13): error #5560: Subscript #1 of the array DVX has value 3 which is greater than the upper bound of 2
但release运行无错误
求高人指教,用得是ivf编译器1. 程序可以处理3维问题,但我这里只用于解决2维问题,所以dim设为2,“z=2.0+dvx(3)
”应该不执行的呀
2. 在cvf下可以顺利通过调试
|