https://gcc.gnu.org/g:9267d4fa5f1bd8701d1f1081c6b2517882fb4939
commit 9267d4fa5f1bd8701d1f1081c6b2517882fb4939 Author: Mikael Morin <[email protected]> Date: Mon Feb 17 16:16:47 2025 +0100 Suppression set span dans trans_associate_var Diff: --- gcc/fortran/trans-stmt.cc | 10 ---------- 1 file changed, 10 deletions(-) diff --git a/gcc/fortran/trans-stmt.cc b/gcc/fortran/trans-stmt.cc index b8d565444a72..c5ab5e32e85a 100644 --- a/gcc/fortran/trans-stmt.cc +++ b/gcc/fortran/trans-stmt.cc @@ -2106,16 +2106,6 @@ trans_associate_var (gfc_symbol *sym, gfc_wrapped_block *block) gfc_conv_shift_descriptor (&se.pre, desc, e->rank); } - /* 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 && !se.direct_byref) - { - gcc_assert (e->expr_type == EXPR_VARIABLE); - tmp = gfc_get_array_span (se.expr, e); - - gfc_conv_descriptor_span_set (&se.pre, desc, tmp); - } - if (e->expr_type == EXPR_FUNCTION && sym->ts.type == BT_DERIVED && sym->ts.u.derived
