[thirdparty/gcc.git] / gcc / testsuite / g77.f-torture / execute / io1.f

*     Fixed by 1998-09-28 libI77/open.c change.
      open(90,status='scratch')
      write(90, '(1X, I1 / 1X, I1)') 1, 2
      rewind 90
      write(90, '(1X, I1)') 1
      rewind 90                 ! implicit ENDFILE expected
      read(90, *) i
      read(90, *, end=10) j
      call abort()
 10   end
Commit	Line	Data
8e5578ea	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