ex0838.f90

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

program ex0838
  implicit none

  call sub()
  call mid()

  stop
end 

subroutine sub()
  implicit none

  write(*,*) "Hello."
  entry mid()
  write(*,*) "Good morning."

  return
end