diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-05-17 20:33:20 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2017-05-17 20:33:20 +0000 |
| commit | 7f72e40263afd8d3e651a1a4ec3d5da9bc8eedd7 (patch) | |
| tree | 29800b9a3654c094d28b76ab48c3fe336be322ce /libgfortran/io/transfer.c | |
| parent | 7ded3472ae5e5eec41909fcefc911e1092479f9b (diff) | |
| download | gcc-7f72e40263afd8d3e651a1a4ec3d5da9bc8eedd7.zip gcc-7f72e40263afd8d3e651a1a4ec3d5da9bc8eedd7.tar.gz gcc-7f72e40263afd8d3e651a1a4ec3d5da9bc8eedd7.tar.bz2 | |
re PR fortran/80741 ([Regression 7/8] DTIO wrong code causes incorrect behaviour of namelist READ)
2017-05-17 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/80741
* transfer.c (finalize_transfer): Reset last_char to 'empty'.
* file_pos.c (formatted_backspace): Likewise.
(st_endfile): Likewise.
(st_rewind): Likewise.
(st_flush): Likewise.
PR fortran/80741
* trans-io.c (transfer_namelist_element): Change check from
NULL_TREE to null_pointer_node.
From-SVN: r248170
Diffstat (limited to 'libgfortran/io/transfer.c')
| -rw-r--r-- | libgfortran/io/transfer.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 928a448..298b29e 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -3977,7 +3977,7 @@ finalize_transfer (st_parameter_dt *dtp) fbuf_seek (dtp->u.p.current_unit, 0, SEEK_END); dtp->u.p.current_unit->saved_pos = 0; - + dtp->u.p.current_unit->last_char = EOF - 1; next_record (dtp, 1); done: |