PR libfortran/40714
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@149757
138bc75d-0d04-0410-961f-
82ee72b054a4
+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
}
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)