From b746fc0e8c773e1fedfb48304a1d34243dd337b7 Mon Sep 17 00:00:00 2001 From: Jerry DeLisle <jvdelisle@gcc.gnu.org> 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 <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 | 5 +++++ libgfortran/io/file_pos.c | 1 - 2 files changed, 5 insertions(+), 1 deletion(-) 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); -- GitLab