re PR libfortran/26880 (Can't read after non-advancing write with rewind)

2006-03-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	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 b3786d84c1735a8c4fe556aea33d844cfdac2c01..c671337b7f292622c7e1a766bec8a96912632443 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+2006-03-26  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       PR libgfortran/26880
+       * io/file_pos.c (st_rewind): Clear read_bad flag.
+
 2006-03-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
        PR libgfortran/26661

diff --git a/libgfortran/io/file_pos.c b/libgfortran/io/file_pos.c
index fd6333a667e889f7df98f3cfc81f96234c526446..e9697bb7ede69ec67a68c01d3a898965a79f6dbe 100644 (file)
--- 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.  */