[Patch, libgfortran] PR26880 Fix Can't read after non-advancing write with rewind

[Jerry DeLisle]

I will commit the following patch as obvious:

Regression tested, NIST tested, IO tested.
The attached test case covers this PR and PR26661.

Regards,

Jerry


Index: io/file_pos.c
===================================================================
*** io/file_pos.c       (revision 112399)
--- io/file_pos.c       (working copy)
*************** st_rewind (st_parameter_filepos *fpp)
*** 312,317 ****
--- 312,318 ----
           u->endfile = NO_ENDFILE;
           u->current_record = 0;
           u->bytes_left = 0;
+         u->read_bad = 0;
           test_endfile (u);
         }
         /* Update position for INQUIRE.  */
-------------- next part --------------
A non-text attachment was scrubbed...
Name: read_x_past.f
Type: text/x-fortran
Size: 501 bytes
Desc: not available
URL: <http://gcc.gnu.org/pipermail/fortran/attachments/20060327/82e2b71a/attachment.bin>