When finalizing I/O transfer, set current_record to 0 before returning.

PR libfortran/40714

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149757 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index 932c85e..2374683 100644 (file)
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,10 @@
+2009-07-17  Janne Blomqvist  <jb@gcc.gnu.org>
+           Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+               
+       PR libfortran/40714
+       * io/transfer.c (finalize_transfer): Set current_record to 0
+       before returning in case of error.
+
 2009-07-12  Tobias Burnus  <burnus@net-b.de>
 
        PR libfortran/22423

diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index 7d833b7..59f88d4 100644 (file)
--- 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)