re PR libfortran/31099 (Runtime error on legal code using RECL)

2007-03-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/31099
	* io/file_pos.c (st_rewind): Don't set bytes_left to zero.

From-SVN: r122970

libgfortran/ChangeLog

+2007-03-15  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+	PR libgfortran/31099
+	* io/file_pos.c (st_rewind): Don't set bytes_left to zero.
+
 2007-03-15  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
 
 	* runtime/backtrace.c: New file.

libgfortran/io/file_pos.c

@@ -311,7 +311,6 @@ st_rewind (st_parameter_filepos *fpp)
 
 	  u->endfile = NO_ENDFILE;
 	  u->current_record = 0;
-	  u->bytes_left = 0;
 	  u->strm_pos = 1;
 	  u->read_bad = 0;
 	  test_endfile (u);