diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-03-27 05:59:37 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-03-27 05:59:37 +0000 |
| commit | ef6fa01d3af63506555c932629c9d870af559aca (patch) | |
| tree | c7cbc2622d98db708046425678f70df8f8ec6f4f | |
| parent | 462ea7a505a2536aaabe20c67392d0d615b03e7e (diff) | |
| download | gcc-ef6fa01d3af63506555c932629c9d870af559aca.zip gcc-ef6fa01d3af63506555c932629c9d870af559aca.tar.gz gcc-ef6fa01d3af63506555c932629c9d870af559aca.tar.bz2 | |
re PR libfortran/26880 (Can't read after non-advancing write with rewind)
2006-03-26 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/26880
* io/file_pos.c (st_rewind): Clear read_bad flag.
From-SVN: r112407
| -rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
| -rw-r--r-- | libgfortran/io/file_pos.c | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index b3786d8..c671337 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,8 @@ +2006-03-26 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libgfortran/26880 + * io/file_pos.c (st_rewind): Clear read_bad flag. + 2006-03-25 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libgfortran/26661 diff --git a/libgfortran/io/file_pos.c b/libgfortran/io/file_pos.c index fd6333a..e9697bb 100644 --- a/libgfortran/io/file_pos.c +++ b/libgfortran/io/file_pos.c @@ -312,6 +312,7 @@ st_rewind (st_parameter_filepos *fpp) u->endfile = NO_ENDFILE; u->current_record = 0; u->bytes_left = 0; + u->read_bad = 0; test_endfile (u); } /* Update position for INQUIRE. */ |