ex0832.f90

来自「Fortran95的一些有用的源程序」· F90 代码 · 共 12 行

program  ex0832
  implicit none
  integer, external :: func
  write(*,*) func(2,3)
end program

pure integer function func(a,b)
  implicit none
  integer, intent(in) :: a,b
  func = a+b
  return
end function