From 4bfbd309bd4e1191bced8b11d5db41c9efb20e31 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 22 Mar 2015 18:42:52 +0000 Subject: [PATCH] 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 PR libgfortran/59513 * io/transfer.c (data_transfer_init): Do not error for -std=legacy. From-SVN: r221572 --- libgfortran/ChangeLog | 6 ++++++ libgfortran/io/transfer.c | 3 ++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 031b2ba3c37..d66fc4b6bec 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2015-03-22 Jerry DeLisle + + PR libgfortran/59513 + * io/transfer.c (data_transfer_init): Do not error for + -std=legacy. + 2015-03-16 Jerry DeLisle PR libgfortran/64432 diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 1dc3fd1fd7b..3005a1f07b0 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 " -- 2.30.2