diff options
author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-03-16 01:11:01 +0000 |
---|---|---|
committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2007-03-16 01:11:01 +0000 |
commit | 09473453cef4812f70e4d39e29244db20e707715 (patch) | |
tree | 6a310dadbee3e83de52f5354031dd094a88c0a8b /libgfortran | |
parent | cffed9923c82ab124739f98554740445b0e6a9f9 (diff) |
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: r122973
Diffstat (limited to 'libgfortran')
-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 40eea39762e..009b82f6f06 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-09 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libgfortran/31099 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); |