ex0803.f90

来自「fortran 95书的源程序全集」· F90 代码 · 共 16 行

program  ex0803
  implicit none
  integer :: a = 1
  call sub1()
  write(*,"('a =',I2)") a
  stop
end program ex0803 

subroutine sub1()
  implicit none
  integer :: a=2
  write(*,"('a =',I2)") a
  return
end subroutine sub1