ex0801.f90

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

program  ex0801
implicit none
  call message() ! 调用子程序message
  call message()
  stop
end 
! 子程序message
subroutine message()
implicit none
  write(*,*) "Hello."
  return
end