Fortran Coder

标题: 为什么i,j的输出不一样？ [打印本页]

作者: QinXian 时间: 2014-12-13 20:44
标题: 为什么i,j的输出不一样？

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

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
因为 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
原来是这样，多谢啦！

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)