program ex0807
implicit none
  real :: a=1
  real :: b=2
  real, external :: add

  write(*,*) add(a,b)
  stop
end

function add(a,b)
implicit none
  real :: a,b ! 傳入的參數
  real :: add 
  ! add跟函數名稱一樣，這邊不是用來聲明變量，
  ! 是聲明這個函數會返回的數值類型
  add = a+b
  return
end