trans-expr.c (gfc_conv_derived_to_class): Fix argument passed to class_array_data_assign.

2012-07-21  Tobias Burnus  <burnus@net-b.de>

        * trans-expr.c (gfc_conv_derived_to_class): Fix argument passed
        to class_array_data_assign.

From-SVN: r189739

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index f8558a67a3a714d5f6b7d27b3bd4b02590801485..04725e0a6d9e5242b6e62e376b7d6314c468ca32 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2012-07-21  Tobias Burnus  <burnus@net-b.de>
+
+       * trans-expr.c (gfc_conv_derived_to_class): Fix argument passed
+       to class_array_data_assign.
+
 2012-07-20  Tobias Burnus  <burnus@net-b.de>
 
        * decl.c (gfc_verify_c_interop_param): Allow assumed-shape

diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c
index f5ed4e3cf3dd3fa8ca37d394b9ceaa8e5f2da4ca..e2c57e3990f7c4118cfebadd2478a08a89cdde6e 100644 (file)
--- a/gcc/fortran/trans-expr.c
+++ b/gcc/fortran/trans-expr.c
@@ -307,8 +307,7 @@ gfc_conv_derived_to_class (gfc_se *parmse, gfc_expr *e,
          gfc_conv_expr_descriptor (parmse, e, ss);
 
          if (e->rank != class_ts.u.derived->components->as->rank)
-           class_array_data_assign (&parmse->pre, ctree, parmse->expr,
-                                    TREE_TYPE (parmse->expr));
+           class_array_data_assign (&parmse->pre, ctree, parmse->expr, true);
          else
            gfc_add_modify (&parmse->pre, ctree, parmse->expr);
        }