ex0808.f90

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

program ex0808
  implicit none
  real :: a = 1
  real :: b
  real add
  add(a,b) = a+b  ! 直接把函数写在里面
  write(*,*) add(a,3.0)
  stop
end