diff options
Diffstat (limited to 'gcc-4.8/libgfortran/io/transfer.c')
| -rw-r--r-- | gcc-4.8/libgfortran/io/transfer.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc-4.8/libgfortran/io/transfer.c b/gcc-4.8/libgfortran/io/transfer.c index d97a325a7..5260be740 100644 --- a/gcc-4.8/libgfortran/io/transfer.c +++ b/gcc-4.8/libgfortran/io/transfer.c @@ -3840,7 +3840,7 @@ hit_eof (st_parameter_dt * dtp) case NO_ENDFILE: case AT_ENDFILE: generate_error (&dtp->common, LIBERROR_END, NULL); - if (!is_internal_unit (dtp)) + if (!is_internal_unit (dtp) && !dtp->u.p.namelist_mode) { dtp->u.p.current_unit->endfile = AFTER_ENDFILE; dtp->u.p.current_unit->current_record = 0; |