diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-03-28 00:19:39 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-03-28 00:19:39 +0000 |
| commit | f70ddc12ecc259e863ca60ce364528fa387da531 (patch) | |
| tree | 6762f8894a56210b2bb142d53212bf7317d2be4c /libgfortran/io | |
| parent | 9f363d2ac246d19590a65900ae9747df48719384 (diff) | |
| download | gcc-f70ddc12ecc259e863ca60ce364528fa387da531.zip gcc-f70ddc12ecc259e863ca60ce364528fa387da531.tar.gz gcc-f70ddc12ecc259e863ca60ce364528fa387da531.tar.bz2 | |
re PR libfortran/31052 ([4.2 only] Bad IOSTAT values when readings NAMELISTs past EOF)
2007-03-27 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/31052
* io/transfer.c (next_record_r): Do not call test_endfile if in namelist
mode.
From-SVN: r123284
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/transfer.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 94bda09..2555898 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -2228,7 +2228,8 @@ next_record_r (st_parameter_dt *dtp) break; } - if (dtp->u.p.current_unit->flags.access == ACCESS_SEQUENTIAL) + if (dtp->u.p.current_unit->flags.access == ACCESS_SEQUENTIAL + && !dtp->u.p.namelist_mode) test_endfile (dtp->u.p.current_unit); } |