论坛 › Fortran语法讨论 › 为什么i,j的输出不一样？

QinXian 发表于 2014-12-13 20:44:17

为什么i,j的输出不一样？

Program Main
Implicit None

Call Test
Call Test
Stop
End Program Main

Subroutine Test
Implicit None
Integer :: J
Integer :: I = 2

J = 2
J = J + J
I = I + I
Write (*, *) J, I
End Subroutine Test请教各位大神，为什么第一次call test输出是4,4；第二次call test输出的是4,8?

fcode 发表于 2014-12-13 21:32:08

因为 integer::i=2 是定义语句，而不是执行语句，并不会在每次运行时执行。
同时，定义时进行赋值的变量，自动具有save属性。

所以第一次调用
i=2
j=2
j=j+j=4
i=i+i=4
第二次调用
i=4（上一次的结果）
j=2
j=j+j=4
i=i+i=8

QinXian 发表于 2014-12-14 08:40:22

原来是这样，多谢啦！

查看完整版本: 为什么i,j的输出不一样？