PROGRAM lajitesti
  IMPLICIT NONE
  INTEGER :: i, laji
  DO i = 1, 24
    laji = SELECTED_INT_KIND(i)
    WRITE (*,*) 'i = ', i, ' laji = ', laji
  END DO
END PROGRAM lajitesti