From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 16 Mar 2007 00:41:36 +0000 (+0000)
Subject: re PR libfortran/31099 (Runtime error on legal code using RECL)
X-Git-Tag: releases/gcc-4.3.0~6212
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=b746fc0e8c773e1fedfb48304a1d34243dd337b7;p=thirdparty%2Fgcc.git

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 70cdf75faadf..dfd8da7fb55d 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 df722e4cbc79..95f7d87c6fc7 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);