program ex0821
  implicit none聲明func是個自定義函數
  real, intrinsic :: sin  ! 聲明sin是庫函數

  call ExecFunc(func)
  call ExecFunc(sin)

  stop
end program

subroutine ExecFunc(f)
  implicit none
  real, external :: f ! 聲明參數f是個函數
  write(*,*) f(1.0)   ! 執行傳入的函數f
  return
end 

real function func(num)
  implicit none
  real :: num
  func = num*2
  return
end function