PROGRAM keskiarvo_testi
  IMPLICIT NONE
  REAL, DIMENSION(6) :: x
  x = (/ 1.0, -1.0, 0.5, 1.5, 2.5, 5.0 /)
  WRITE (*,*) 'keskiarvo: ', keskiarvo(x)
CONTAINS
  REAL FUNCTION keskiarvo(x)
    IMPLICIT NONE
    REAL, DIMENSION(:), INTENT(IN) :: x
    keskiarvo = SUM(x)/SIZE(x)
  END FUNCTION keskiarvo
END PROGRAM keskiarvo_testi