! 例題 9-4  5科目成績表 ［構造型変数の利用 ］
PROGRAM ex9_4

  IMPLICIT NONE
  INTEGER :: n, i = 0
  CHARACTER ( LEN = 1 ) :: answer
  TYPE kamoku_seiseki
    INTEGER :: number
    CHARACTER ( LEN = 12 ) :: name
    INTEGER :: mark( 1 : 5 )
  END TYPE kamoku_seiseki
  TYPE ( kamoku_seiseki ) :: s5

  PRINT *, '学生数は？'
  READ *, n

  OPEN ( 8, FILE = 'h3.txt' )
    DO WHILE( i < n )
      PRINT *, '学生の名前：'
      READ '( A )', s5%name

      PRINT *, '５科目の点数：'
      READ *, s5%mark( : )                                ! 配列
      PRINT '( A12, 5I4 )', s5%name, s5%mark( : )

      PRINT *, '確認 ( empty or n )'
      READ '( A )', answer

      IF ( answer == ' ' ) THEN
        i = i + 1
        s5%number = i
        WRITE ( 8, '( I5, 1X, A12, 5I4 )' ) s5
      END IF
    END DO
  CLOSE ( 8 )

END PROGRAM ex9_4