[Bug libfortran/31052] Bad IOSTAT values when readings NAMELISTs past EOF

[jvdelisle at gcc dot gnu dot org]

------- 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