diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-03-22 18:42:52 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2015-03-22 18:42:52 +0000 |
| commit | 4bfbd309bd4e1191bced8b11d5db41c9efb20e31 (patch) | |
| tree | 4549632a36310121f7f91f684f59d39540d29c23 /libgfortran/io | |
| parent | ac48a1ba5ef285bcf52b5ef02cb3845c5e94e3b1 (diff) | |
| download | gcc-4bfbd309bd4e1191bced8b11d5db41c9efb20e31.zip gcc-4bfbd309bd4e1191bced8b11d5db41c9efb20e31.tar.gz gcc-4bfbd309bd4e1191bced8b11d5db41c9efb20e31.tar.bz2 | |
re PR libfortran/59513 (Fortran runtime error: Sequential READ or WRITE not allowed after EOF marker, possibly use REWIND or BACKSPACE)
2015-03-22 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/59513
* io/transfer.c (data_transfer_init): Do not error for
-std=legacy.
From-SVN: r221572
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 1dc3fd1..3005a1f 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -2533,7 +2533,8 @@ 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 " |