diff options
| author | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-19 06:52:33 +0000 |
|---|---|---|
| committer | jvdelisle <jvdelisle@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-12-19 06:52:33 +0000 |
| commit | ef629085467b708e1ee4c4d31de648d58500146c (patch) | |
| tree | f7f89210386b97b05910a917752351dfb6e00fc6 /libgfortran/io | |
| parent | 0dd4b6f29477b6d18bc8a479e6a05aa1cbbaf02a (diff) | |
| download | gcc-ef629085467b708e1ee4c4d31de648d58500146c.tar.gz | |
2005-12-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25463
* io/transfer.c (finalize_transfer): Fix execution order so that
next_record is set to zero in all cases.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@108784 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/io')
| -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 7696643deb9..7ad1fffc68d 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -2017,6 +2017,7 @@ finalize_transfer (st_parameter_dt *dtp) finish_list_read (dtp); else { + dtp->u.p.current_unit->current_record = 0; if (dtp->u.p.advance_status == ADVANCE_NO || dtp->u.p.seen_dollar) { /* Most systems buffer lines, so force the partial record @@ -2027,7 +2028,6 @@ finalize_transfer (st_parameter_dt *dtp) } next_record (dtp, 1); - dtp->u.p.current_unit->current_record = 0; } sfree (dtp->u.p.current_unit->s); |