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

[spark at gcc dot gnu dot org]

------- Comment #33 from spark at gcc dot gnu dot org  2007-03-26 16:54 -------
(In reply to comment #31)
> 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);
>   }

This patch doesn't break 200.sixtrack (when added on top of the Jerry's
previous patch above).


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31052