diff options
author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-03-30 20:47:40 +0000 |
---|---|---|
committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-03-30 20:47:40 +0000 |
commit | f9fa5f116ffab5228d45b6cfd2b6aca0624a50ae (patch) | |
tree | 7a54a713165618494671c5e5ec76b52ae5554861 /libgfortran | |
parent | 71d2748d57de7341afc9d3033060fc5ceac3d115 (diff) |
re PR libfortran/59513 (Fortran runtime error: Sequential READ or WRITE not allowed after EOF marker, possibly use REWIND or BACKSPACE)
2015-03-30 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/59513
* io/transfer.c (data_transfer_init): Do not error for
-std=legacy.
From-SVN: r221778
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
-rw-r--r-- | libgfortran/io/transfer.c | 7 |
2 files changed, 10 insertions, 3 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 547a7f29229..184bf3d8092 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2015-03-30 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libgfortran/59513 + * io/transfer.c (data_transfer_init): Do not error for + -std=legacy. + 2015-03-22 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libgfortran/60956 diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 2e11727d1a3..87c67bf6a3d 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -2529,15 +2529,16 @@ data_transfer_init (st_parameter_dt *dtp, int read_flag) return; } - if (dtp->u.p.current_unit->endfile == AFTER_ENDFILE) - { + if (compile_options.warn_std && + dtp->u.p.current_unit->endfile == AFTER_ENDFILE) + { generate_error (&dtp->common, LIBERROR_OPTION_CONFLICT, "Sequential READ or WRITE not allowed after " "EOF marker, possibly use REWIND or BACKSPACE"); return; } - } + /* Process the ADVANCE option. */ dtp->u.p.advance_status |