[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Suppression set span dans trans_associate_var

[Mikael Morin]

https://gcc.gnu.org/g:9267d4fa5f1bd8701d1f1081c6b2517882fb4939

commit 9267d4fa5f1bd8701d1f1081c6b2517882fb4939
Author: Mikael Morin <mikael@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 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