diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-03-16 00:41:36 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-03-16 00:41:36 +0000 |
| commit | b746fc0e8c773e1fedfb48304a1d34243dd337b7 (patch) | |
| tree | 0896d6cd204e648ea5a955ddf4ace70c8ac3ab45 | |
| parent | 9bdb685eda8fc13f43450520b257fa1bfe3e464e (diff) | |
| download | gcc-b746fc0e8c773e1fedfb48304a1d34243dd337b7.zip gcc-b746fc0e8c773e1fedfb48304a1d34243dd337b7.tar.gz gcc-b746fc0e8c773e1fedfb48304a1d34243dd337b7.tar.bz2 | |
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
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/file_pos.c | 1 |
2 files changed, 5 insertions, 1 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 70cdf75..dfd8da7 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 df722e4..95f7d87 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); |