Patchwork [Fortran,committed] PR54690 - Fix of the commit of PR54618

login
register
mail settings
Submitter Tobias Burnus
Date Sept. 24, 2012, 7:10 p.m.
Message ID <5060B01C.8060607@net-b.de>
Download mbox | patch
Permalink /patch/186521/
State New
Headers show

Comments

Tobias Burnus - Sept. 24, 2012, 7:10 p.m.
This patch fixes PR54690; it is rather obvious and has been also 
approved by Paul in the PR.

Tobias

Patch

Index: gcc/fortran/ChangeLog
===================================================================
--- gcc/fortran/ChangeLog	(Revision 191675)
+++ gcc/fortran/ChangeLog	(Arbeitskopie)
@@ -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.
Index: gcc/fortran/trans-expr.c
===================================================================
--- gcc/fortran/trans-expr.c	(Revision 191675)
+++ gcc/fortran/trans-expr.c	(Arbeitskopie)
@@ -3918,7 +3918,7 @@  gfc_conv_procedure_call (gfc_se * se, gfc_symbol *
 		  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;