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 と出力されます。