ex0834.f90

来自「Fortran95的一些有用的源程序」· F90 代码 · 共 21 行

module global
  implicit none
  integer a,b
  common  a,b
end module

program  ex0834
  use global
  implicit none
  a=1
  b=2
  call sub()
end program

subroutine sub()
  use global
  implicit none
  write(*,*) a,b
  return
end subroutine