ex0840s.f90

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

subroutine sub()
  implicit none
  write(*,*) "Hello."
  return
end subroutine