ex0805.f90

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

program  ex0805
implicit none
  integer :: a = 1
  integer :: b = 2
  write(*,*) a,b
  call add(a)
  call add(b)
  write(*,*) a,b
  stop
end

subroutine add(num)
implicit none
  integer :: num
  num = num+1
  return
end