diff options
author | Andre Vehreschild <vehre@gcc.gnu.org> | 2016-11-03 14:17:22 +0100 |
---|---|---|
committer | Andre Vehreschild <vehre@gcc.gnu.org> | 2016-11-03 14:17:22 +0100 |
commit | 49ba184c338c90a6203093aa3dbac4bb37d56d9e (patch) | |
tree | b39a6858769510a6514466aeb091c8867dc2156e /gcc/fortran/trans-array.c | |
parent | 86052d9c01b601a4f5c3b507b9c31cf9182b6dc7 (diff) | |
parent | a5ed9f7bf622378db5b9882ab23b5d6d93a36f8d (diff) | |
download | gcc-49ba184c338c90a6203093aa3dbac4bb37d56d9e.tar.gz |
Merge branch 'vehre/test_alloc_init' into vehre/coarray
Diffstat (limited to 'gcc/fortran/trans-array.c')
-rw-r--r-- | gcc/fortran/trans-array.c | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/gcc/fortran/trans-array.c b/gcc/fortran/trans-array.c index 1732bc8c1a2..eee5645fe71 100644 --- a/gcc/fortran/trans-array.c +++ b/gcc/fortran/trans-array.c @@ -5623,14 +5623,6 @@ gfc_array_allocate (gfc_se * se, gfc_expr * expr, tree status, tree errmsg, else gfc_add_expr_to_block (&se->pre, set_descriptor); - if (expr->ts.type == BT_DERIVED && expr->ts.u.derived->attr.alloc_comp - && !coarray) - { - tmp = gfc_nullify_alloc_comp (expr->ts.u.derived, se->expr, - ref->u.ar.as->rank); - gfc_add_expr_to_block (&se->pre, tmp); - } - return true; } |