ex0808.f90

Fortran 95程序设计&Code-彭国伦

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