PROGRAM syt
  ! Lasketaan kokonaislukujen m ja n suurin yhteinen
  ! tekijä Euklideen algoritmilla.
  IMPLICIT NONE
  INTEGER, PARAMETER :: int_kind = SELECTED_INT_KIND(9)
  INTEGER (KIND=int_kind) :: m, n, t

  WRITE (*,*) 'Anna positiiviset kokonaisluvut m ja n:'
  READ (*,*) m, n
  WRITE (*,*) 'm:', m, ' n:', n

  positiivisuusehto: IF (m > 0 .AND. n > 0) THEN
    DO WHILE (n /= 0)
      t = MOD(m,n)
      m = n
      n = t
    END DO
    WRITE (*,*) 'Suurin yhteinen tekijä:', m
  ELSE
    WRITE (*,*) 'Luvut eivät ole positiivisia!'
  END IF positiivisuusehto
END PROGRAM syt