From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Mon, 19 Dec 2005 06:52:33 +0000 (+0000)
Subject: re PR libfortran/25463 (T edit descriptor and ADVANCE="no")
X-Git-Tag: releases/gcc-4.2.0~5238
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0a73639369d4268c82aec56b8fcc23ac5e4383b6;p=thirdparty%2Fgcc.git

re PR libfortran/25463 (T edit descriptor and ADVANCE="no")

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.

From-SVN: r108784
---

diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog
index f46b469c56b1..1d57faa270e0 100644
--- a/libgfortran/ChangeLog
+++ b/libgfortran/ChangeLog
@@ -1,3 +1,9 @@
+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.
+
 2005-12-16  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
 
 	PR libgfortran/25264
diff --git a/libgfortran/io/transfer.c b/libgfortran/io/transfer.c
index 7696643deb90..7ad1fffc68d9 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);