PROGRAM funktio_esimerkki
  ! Ohjelma lukee reaaliluvun x ja tulostaa 
  ! funktion f arvon tässä pisteessä.
  IMPLICIT NONE
  REAL :: x
  WRITE (*,*) 'Syötä luku x:'
  READ (*,*) x
  WRITE (*,*) 'Luku x:', x
  WRITE (*,*) 'Arvo f(x):', f(x)
CONTAINS
  FUNCTION f(a) RESULT(f_arvo)
    IMPLICIT NONE
    REAL :: a, f_arvo
    f_arvo = a**2 + 1
  END FUNCTION f
END PROGRAM funktio_esimerkki