ex1205f.f90

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

subroutine sub(a)
  implicit none
  integer :: a
  write(*,*) a
  return
end subroutine