gfortran (mingw build, ver 4.4.0) で -fno-automatic が効いてないみたいなんですけど これって既出ですか? 以下再現するコードと実行結果です。 C------ a.f ------ program main call test call test end program main subroutine test write(*,*) i i = i+1 return end C----------------- > gfortran -finit-local-zero -fno-automatic -oa a.f > a 0 0 他のコンパイラ(g77 や ifort -save)だとちゃんと 0 1 と出力されます。