From 217c4f5393976eb36dc759957cec82513c1f85e1 Mon Sep 17 00:00:00 2001 From: Janne Blomqvist Date: Fri, 17 Jul 2009 22:40:23 +0300 Subject: [PATCH] When finalizing I/O transfer, set current_record to 0 before returning. PR libfortran/40714 Co-Authored-By: Jerry DeLisle From-SVN: r149757 --- libgfortran/ChangeLog | 7 +++++++ libgfortran/io/transfer.c | 6 +++++- 2 files changed, 12 insertions(+), 1 deletion(-) diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 932c85efd7c..23746839c5d 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,10 @@ +2009-07-17 Janne Blomqvist + Jerry DeLisle + + PR libfortran/40714 + * io/transfer.c (finalize_transfer): Set current_record to 0 + before returning in case of error. + 2009-07-12 Tobias Burnus PR libfortran/22423 diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c index 7d833b78013..59f88d4fb9b 100644 --- a/libgfortran/io/transfer.c +++ b/libgfortran/io/transfer.c @@ -3103,7 +3103,11 @@ finalize_transfer (st_parameter_dt *dtp) } if ((dtp->common.flags & IOPARM_LIBRETURN_MASK) != IOPARM_LIBRETURN_OK) - return; + { + if (dtp->u.p.current_unit && current_mode (dtp) == UNFORMATTED_SEQUENTIAL) + dtp->u.p.current_unit->current_record = 0; + return; + } if ((dtp->u.p.ionml != NULL) && (cf & IOPARM_DT_HAS_NAMELIST_NAME) != 0)