PROGRAM suku
  USE sukupuu
  IMPLICIT NONE

  TYPE(perhe), POINTER :: juuri

  juuri => lue() ! Luetaan sukupuu sisään
  CALL tulosta(juuri, 1) ! Tulostetaan sukupuu
  WRITE (*,*)
  CALL etsi(juuri, 'Juhani') ! Etsitään kaikki Juhanit sukupuusta

END PROGRAM suku