PROGRAM funtesti
  IMPLICIT NONE
  WRITE (*,*) 'Satunnaisluku: ', rnd()
CONTAINS
  FUNCTION rnd()
    IMPLICIT NONE
    REAL :: rnd
    CALL RANDOM_NUMBER(rnd)
  END FUNCTION rnd
END PROGRAM funtesti