diff options
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 91db5df..af6d01a 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -2791,6 +2791,7 @@ init_intent_out_dt (gfc_symbol * proc_sym, tree body) stmtblock_t fnblock; gfc_formal_arglist *f; tree tmp; + tree present; gfc_init_block (&fnblock); for (f = proc_sym->formal; f; f = f->next) @@ -2802,6 +2803,11 @@ init_intent_out_dt (gfc_symbol * proc_sym, tree body) tmp = gfc_deallocate_alloc_comp (f->sym->ts.derived, f->sym->backend_decl, f->sym->as ? f->sym->as->rank : 0); + + present = gfc_conv_expr_present (f->sym); + tmp = build3 (COND_EXPR, TREE_TYPE (tmp), present, + tmp, build_empty_stmt ()); + gfc_add_expr_to_block (&fnblock, tmp); } |