From: Jerry DeLisle <jvdelisle@gcc.gnu.org>
Date: Fri, 26 Sep 2008 06:15:21 +0000 (+0000)
Subject: re PR fortran/37498 (Incorrect array value returned - 4.3 ABI Broken)
X-Git-Tag: releases/gcc-4.4.0~2264
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=5e1bdeb75f6f1f724a5e046c4ac39254dbf8ab0f;p=thirdparty%2Fgcc.git

re PR fortran/37498 (Incorrect array value returned - 4.3 ABI Broken)

2008-09-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org

	PR fortran/37498
	* trans-io.c (build_dt): Revert previous patch..
	* ioparm.def: Delete IOPARM_dt_f2003.

From-SVN: r140683
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 16ed9e9d68bb..389f8faa09ef 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2008-09-25  Jerry DeLisle  <jvdelisle@gcc.gnu.org
+
+	PR fortran/37498
+	* trans-io.c (build_dt): Revert previous patch..
+	* ioparm.def: Delete IOPARM_dt_f2003.
+
 2008-09-25  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/37504
diff --git a/gcc/fortran/ioparm.def b/gcc/fortran/ioparm.def
index ee3f6b21910a..deb1b98389c8 100644
--- a/gcc/fortran/ioparm.def
+++ b/gcc/fortran/ioparm.def
@@ -93,4 +93,3 @@ IOPARM (dt,      pad,		1 << 22, char1)
 IOPARM (dt,      round,		1 << 23, char2)
 IOPARM (dt,      sign,		1 << 24, char1)
 IOPARM (dt,      u,		0,	 pad)
-#define IOPARM_dt_f2003			(1 << 25)
diff --git a/gcc/fortran/trans-io.c b/gcc/fortran/trans-io.c
index fdc517abe979..af46ea2d65a0 100644
--- a/gcc/fortran/trans-io.c
+++ b/gcc/fortran/trans-io.c
@@ -1641,7 +1641,7 @@ build_dt (tree function, gfc_code * code)
   tree tmp, var;
   gfc_expr *nmlname;
   gfc_namelist *nml;
-  unsigned int mask = IOPARM_dt_f2003;
+  unsigned int mask = 0;
 
   gfc_start_block (&block);
   gfc_init_block (&post_block);