From: Jerry DeLisle Date: Mon, 27 Mar 2006 05:59:37 +0000 (+0000) Subject: re PR libfortran/26880 (Can't read after non-advancing write with rewind) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ef6fa01d3af63506555c932629c9d870af559aca;p=gcc.git re PR libfortran/26880 (Can't read after non-advancing write with rewind) 2006-03-26 Jerry DeLisle PR libgfortran/26880 * io/file_pos.c (st_rewind): Clear read_bad flag. From-SVN: r112407 --- diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index b3786d84c17..c671337b7f2 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2006-03-26 Jerry DeLisle + + PR libgfortran/26880 + * io/file_pos.c (st_rewind): Clear read_bad flag. + 2006-03-25 Jerry DeLisle PR libgfortran/26661 diff --git a/libgfortran/io/file_pos.c b/libgfortran/io/file_pos.c index fd6333a667e..e9697bb7ede 100644 --- a/libgfortran/io/file_pos.c +++ b/libgfortran/io/file_pos.c @@ -312,6 +312,7 @@ st_rewind (st_parameter_filepos *fpp) u->endfile = NO_ENDFILE; u->current_record = 0; u->bytes_left = 0; + u->read_bad = 0; test_endfile (u); } /* Update position for INQUIRE. */