[数值问题] 为什么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