diff options
Diffstat (limited to 'gcc/fortran/trans-stmt.c')
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index 5b6625f..b9966ed 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -1707,17 +1707,19 @@ trans_associate_var (gfc_symbol *sym, gfc_wrapped_block *block) /* If association is to an expression, evaluate it and create temporary. Otherwise, get descriptor of target for pointer assignment. */ gfc_init_se (&se, NULL); + if (sym->assoc->variable || cst_array_ctor) { se.direct_byref = 1; se.use_offset = 1; se.expr = desc; + GFC_DECL_PTR_ARRAY_P (sym->backend_decl) = 1; } gfc_conv_expr_descriptor (&se, e); if (sym->ts.type == BT_CHARACTER - && sym->ts.deferred + && !se.direct_byref && sym->ts.deferred && !sym->attr.select_type_temporary && VAR_P (sym->ts.u.cl->backend_decl) && se.string_length != sym->ts.u.cl->backend_decl) @@ -1746,7 +1748,7 @@ trans_associate_var (gfc_symbol *sym, gfc_wrapped_block *block) /* If this is a subreference array pointer associate name use the associate variable element size for the value of 'span'. */ - if (sym->attr.subref_array_pointer) + if (sym->attr.subref_array_pointer && !se.direct_byref) { gcc_assert (e->expr_type == EXPR_VARIABLE); tmp = gfc_get_array_span (se.expr, e); |