https://gcc.gnu.org/g:a797f21268bb1434e1d554e577714c7380248406
commit a797f21268bb1434e1d554e577714c7380248406
Author: Mikael Morin <mik...@gcc.gnu.org>
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 6bc9f3910292..f1c62ae01cb9 100644
--- a/gcc/fortran/trans-stmt.cc
+++ b/gcc/fortran/trans-stmt.cc
@@ -2012,16 +2012,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
