re PR libfortran/25550 (file data corrupted after reading end of file)

2005-12-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/25550
	* io/file_pos.c (st_rewind): Reset bytes left so no error occurs in
	next_record_r.

From-SVN: r109101

libgfortran/ChangeLog

 2005-12-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
+	PR libgfortran/25550
+	* io/file_pos.c (st_rewind): Reset bytes left so no error occurs in
+	next_record_r.
+
+2005-12-28  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
 	PR libgfortran/25419
 	* io/list_read.c (list_formatted_read_scalar): Allow comma to return a
 	null value (default).

libgfortran/io/file_pos.c

@@ -255,6 +255,7 @@ st_rewind (st_parameter_filepos *fpp)
 
 	  u->endfile = NO_ENDFILE;
 	  u->current_record = 0;
+	  u->bytes_left = 0;
 	  test_endfile (u);
 	}
       /* Update position for INQUIRE.  */