PROGRAM omaohjelma
  ! Ohjelma laskee lausekkeen a**i + b**j arvon.
  IMPLICIT NONE
  REAL :: a, b
  INTEGER :: i, j

  WRITE (*,*) 'Anna a ja b:'
  READ (*,*) a, b
  WRITE (*,*) 'Anna i ja j:'
  READ (*,*) i, j
  WRITE (*,*) 'f(x) = ', f(a, i, b, j)
CONTAINS
  FUNCTION f(x, x_potenssi, y, y_potenssi) RESULT(f_arvo)
    IMPLICIT NONE
    REAL :: x, y
    INTEGER :: x_potenssi, y_potenssi
    REAL :: f_arvo
    f_arvo = x**x_potenssi + y**y_potenssi
  END FUNCTION f
END PROGRAM omaohjelma