[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Suppression code inutile

[Mikael Morin]

https://gcc.gnu.org/g:461505c06e601726526e913fe13fcc782b71b218

commit 461505c06e601726526e913fe13fcc782b71b218
Author: Mikael Morin <mikael@gcc.gnu.org>
Date:   Mon Mar 17 12:43:18 2025 +0100

    Suppression code inutile

Diff:
---
 gcc/fortran/trans-array.cc | 10 ----------
 1 file changed, 10 deletions(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index fff1546cbe33..41069947c793 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -10747,16 +10747,6 @@ gfc_alloc_allocatable_for_assignment (gfc_loopinfo *loop,
      running offset.  Use the saved_offset instead.  */
   gfc_conv_descriptor_offset_set (&fblock, desc, offset);
 
-  /* Now set the deltas for the lhs.  */
-  for (n = 0; n < expr1->rank; n++)
-    {
-      tmp = gfc_conv_descriptor_lbound_get (desc, gfc_rank_cst[n]);
-      dim = lss->dim[n];
-      tmp = fold_build2_loc (input_location, MINUS_EXPR,
-			     gfc_array_index_type, tmp,
-			     loop->from[dim]);
-    }
-
   /* Take into account _len of unlimited polymorphic entities, so that span
      for array descriptors and allocation sizes are computed correctly.  */
   if (UNLIMITED_POLY (expr2))