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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@191676 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index d6bfcf9..23b3b17 100644 (file)
--- 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 319c361..1178e3d 100644 (file)
--- 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;