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

libgfortran/ChangeLog

+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

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.  */