ex0815.f90

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

program ex0815
implicit none
  real :: a=1.0
  call ShowInteger(a)
  call ShowReal(a)
  stop
end

subroutine ShowInteger(num)
implicit none
  integer :: num
  write(*,*) num
  return
end

subroutine ShowReal(num)
implicit none
  real :: num
  write(*,*) num
  return
end