! 例題 3-4  成績評価 ［CASE 構文 ］
PROGRAM ex3_4

  INTEGER :: i

  PRINT *, 'Input mark of this exam:'
  READ *, i
  IF ( i < 0 .OR. i > 100 ) STOP 'Input value < 0 or > 100'

  SELECT CASE ( i )
    CASE ( 80 : )
      PRINT *, '優'
    CASE ( 70 : 79 )
      PRINT *, '良'
    CASE ( 60 : 69 )
      PRINT *, '可'
    CASE DEFAULT              ! 「それ以外は」
      PRINT *, '不可'
  END SELECT

END PROGRAM ex3_4