! 5科目成績表
PROGRAM ex9_2

  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 '(1X, A)', '学生数は？'
  READ *, n

  OPEN( 8, FILE = 'h3.txt' )
    DO WHILE( i < n )
      PRINT '(1X, A)', '学生の名前：'
      READ '(A)', s5%name
      PRINT '(1X, A)', '５科目の点数：'
      READ *, s5%mark(:)                             ! 配列
      PRINT '(A12, 5I4)', s5%name, s5%mark(:)
      PRINT '(1X, A)', '確認（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_2