diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 70cdf75faadf12a995295f89d654d85935b66263..dfd8da7fb55db030d12e950715ee0face51724da 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,8 @@
+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.
diff --git a/libgfortran/io/file_pos.c b/libgfortran/io/file_pos.c
index df722e4cbc795f5bd91e90ca89e12c1482c26486..95f7d87c6fc74167c1042604ea21bcf277432218 100644
--- a/libgfortran/io/file_pos.c
+++ b/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);