!-----  Ex9_2: ５科目成績表   -----
      TYPE kamoku_seiseki
         INTEGER :: number
         CHARACTER(LEN=12) :: name
         INTEGER :: mark(1:5)
      END TYPE kamoku_seiseki
      INTEGER :: n, i = 0
      CHARACTER(LEN=1) :: answer
      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