ex0842s.f90

来自「Fortran 95程序设计&Code-彭国伦」· F90 代码 · 共 5 行

subroutine sub()
  implicit none
  write(*,*) "This is subroutine"
  return
end