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

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 70cdf75faadf12a995295f89d654d85935b66263..dfd8da7fb55db030d12e950715ee0face51724da 100644 (file)
--- 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 (file)
--- 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);