From: Janus Weil <janus@gcc.gnu.org>
Date: Thu, 2 Sep 2010 12:34:26 +0000 (+0200)
Subject: re PR fortran/44541 ([OOP] wrong code for polymorphic variable with INTENT(OUT)/Alloc... 
X-Git-Tag: releases/gcc-4.6.0~4708
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c330d181bc98bc7efde028f7eb8ead33f69e6304;p=thirdparty%2Fgcc.git

re PR fortran/44541 ([OOP] wrong code for polymorphic variable with INTENT(OUT)/Alloc w/ MOLD)

2010-09-02  Janus Weil  <janus@gcc.gnu.org>

	PR fortran/44541
	* resolve.c (resolve_symbol): Correct check for attributes of CLASS
	variable.

From-SVN: r163773
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index fb1fa4d26649..05f94158b9a7 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2010-09-02  Janus Weil  <janus@gcc.gnu.org>
+
+	PR fortran/44541
+	* resolve.c (resolve_symbol): Correct check for attributes of CLASS
+	variable.
+
 2010-09-02  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/45489
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 26175e4512ca..6b922a0bfcdf 100644
--- a/gcc/fortran/resolve.c
+++ b/gcc/fortran/resolve.c
@@ -12166,7 +12166,8 @@ resolve_symbol (gfc_symbol *sym)
 
   if (sym->ts.type == BT_CLASS && sym->ns == gfc_current_ns
       && sym->attr.dummy && sym->attr.intent == INTENT_OUT
-      && !sym->attr.pointer && !sym->attr.allocatable)
+      && !CLASS_DATA (sym)->attr.class_pointer
+      && !CLASS_DATA (sym)->attr.allocatable)
     apply_default_init (sym);
 
   /* If this symbol has a type-spec, check it.  */