diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-07-21 11:27:04 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-07-21 11:27:04 +0200 |
| commit | 51d03ec6c60bab761704af98f7042332de33c751 (patch) | |
| tree | 41209544f7bc3a7aee498c104590ca0ab5569143 /gcc/fortran/trans-expr.c | |
| parent | 5621a8432a5881b56b96a20f215bdd2b7ebe3a55 (diff) | |
| download | gcc-51d03ec6c60bab761704af98f7042332de33c751.zip gcc-51d03ec6c60bab761704af98f7042332de33c751.tar.gz gcc-51d03ec6c60bab761704af98f7042332de33c751.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index f5ed4e3..e2c57e3 100644 --- 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); } |