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
11