gcc/testsuite/g77.f-torture/execute/io1.f

   1 *     Fixed by 1998-09-28 libI77/open.c change.
   2       open(90,status='scratch')
   3       write(90, '(1X, I1 / 1X, I1)') 1, 2
   4       rewind 90
   5       write(90, '(1X, I1)') 1
   6       rewind 90                 ! implicit ENDFILE expected
   7       read(90, *) i
   8       read(90, *, end=10) j
   9       call abort()
  10  10   end