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

QinXian

[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  ?

QinXian

原来是这样，多谢啦！