From: Tobias Burnus <burnus@net-b.de>
Date: Mon, 24 Sep 2012 19:05:18 +0000 (+0200)
Subject: re PR fortran/54618 ([OOP] wrong-code with CLASS(...), INTENT(OUT) -- and OPTIONAL... 
X-Git-Tag: misc/gccgo-go1_1_2~665
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7df938d62ab7686c9fcd83f8821b7fec88e411c9;p=thirdparty%2Fgcc.git

re PR fortran/54618 ([OOP] wrong-code with CLASS(...), INTENT(OUT) -- and OPTIONAL or ALLOCATABLE)

2012-09-24  Tobias Burnus  <burnus@net-b.de>

        PR fortran/54618
        * trans-expr.c (gfc_conv_procedure_call): Fix INTENT(OUT)
        handling for allocatable BT_CLASS.

From-SVN: r191676
---

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index d6bfcf9e8d35..23b3b1773259 100644
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+2012-09-24  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/54618
+	* trans-expr.c (gfc_conv_procedure_call): Fix INTENT(OUT)
+	handling for allocatable BT_CLASS.
+
 2012-09-24  Lawrence Crowl  <crowl@google.com>
 
 	* trans-expr.c (gfc_conv_cst_int_power): Change to new double_int API.
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c
index 319c36175aa8..1178e3d3cb55 100644
--- a/gcc/fortran/trans-expr.c
+++ b/gcc/fortran/trans-expr.c
@@ -3918,7 +3918,7 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym,
 		  if (fsym && fsym->attr.intent == INTENT_OUT
 		      && (fsym->attr.allocatable
 			  || (fsym->ts.type == BT_CLASS
-			      && CLASS_DATA (e)->attr.allocatable)))
+			      && CLASS_DATA (fsym)->attr.allocatable)))
 		    {
 		      stmtblock_t block;
 		      tree ptr;