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

QinXian

[Fortran] syntaxhighlighter_viewsource syntaxhighlighter_copycode

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

因为 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

原来是这样，多谢啦！