From b746fc0e8c773e1fedfb48304a1d34243dd337b7 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Fri, 16 Mar 2007 00:41:36 +0000 Subject: [PATCH] re PR libfortran/31099 (Runtime error on legal code using RECL) 2007-03-15 Jerry DeLisle PR libgfortran/31099 * io/file_pos.c (st_rewind): Don't set bytes_left to zero. From-SVN: r122970 --- libgfortran/ChangeLog | 5 +++++ libgfortran/io/file_pos.c | 1 - 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 70cdf75faad..dfd8da7fb55 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2007-03-15 Jerry DeLisle + + PR libgfortran/31099 + * io/file_pos.c (st_rewind): Don't set bytes_left to zero. + 2007-03-15 Francois-Xavier Coudert * runtime/backtrace.c: New file. diff --git a/libgfortran/io/file_pos.c b/libgfortran/io/file_pos.c index df722e4cbc7..95f7d87c6fc 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);