re PR fortran/54618 ([OOP] wrong-code with CLASS(...), INTENT(OUT) -- and OPTIONAL or ALLOCATABLE)
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. From-SVN: r191676
This commit is contained in:
parent
9be0ac8c9e
commit
7df938d62a
|
@ -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>
|
2012-09-24 Lawrence Crowl <crowl@google.com>
|
||||||
|
|
||||||
* trans-expr.c (gfc_conv_cst_int_power): Change to new double_int API.
|
* trans-expr.c (gfc_conv_cst_int_power): Change to new double_int API.
|
||||||
|
|
|
@ -3918,7 +3918,7 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym,
|
||||||
if (fsym && fsym->attr.intent == INTENT_OUT
|
if (fsym && fsym->attr.intent == INTENT_OUT
|
||||||
&& (fsym->attr.allocatable
|
&& (fsym->attr.allocatable
|
||||||
|| (fsym->ts.type == BT_CLASS
|
|| (fsym->ts.type == BT_CLASS
|
||||||
&& CLASS_DATA (e)->attr.allocatable)))
|
&& CLASS_DATA (fsym)->attr.allocatable)))
|
||||||
{
|
{
|
||||||
stmtblock_t block;
|
stmtblock_t block;
|
||||||
tree ptr;
|
tree ptr;
|
||||||
|
|
Loading…
Reference in New Issue