This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
g77 testcase
- To: egcs-patches at cygnus dot com
- Subject: g77 testcase
- From: Dave Love <d dot love at dl dot ac dot uk>
- Date: 30 Sep 1998 19:16:35 +0100
Is it OK to install this regression test for the libf2c problem of
REWIND not DTRT?
* 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