------- Comment #31 from jvdelisle at gcc dot gnu dot org 2007-03-26 07:00 ------- Here is a new patch. I need someone to test on SPEC. It is very simple.
Index: transfer.c =================================================================== *** transfer.c (revision 123205) --- transfer.c (working copy) *************** next_record_r (st_parameter_dt *dtp) *** 2228,2234 **** break; } ! if (dtp->u.p.current_unit->flags.access == ACCESS_SEQUENTIAL) test_endfile (dtp->u.p.current_unit); } --- 2228,2235 ---- break; } ! if (dtp->u.p.current_unit->flags.access == ACCESS_SEQUENTIAL ! && !dtp->u.p.namelist_mode) test_endfile (dtp->u.p.current_unit); } -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31052