From: Jerry DeLisle Date: Mon, 30 Mar 2015 16:51:37 +0000 (+0000) Subject: re PR libfortran/59513 (Fortran runtime error: Sequential READ or WRITE not allowed... X-Git-Tag: releases/gcc-4.9.3~234 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6ed18a807948944a68d4532185582c61e4d8706a;p=thirdparty%2Fgcc.git 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 PR libgfortran/59513 * io/transfer.c (data_transfer_init): Do not error for -std=legacy. From-SVN: r221772 --- diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 724cc5bdf444..af390a846c52 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2015-03-30 Jerry DeLisle + + PR libgfortran/59513 + * io/transfer.c (data_transfer_init): Do not error for + -std=legacy. + 2015-03-28 Jerry DeLisle PR libgfortran/65596 diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 89f7ba8eb137..48fc598c87a5 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -2533,15 +2533,15 @@ 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