https://gcc.gnu.org/g:d53ac098d6447299535c0748f0f69dd23bf39c2e

commit d53ac098d6447299535c0748f0f69dd23bf39c2e
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Jul 7 19:01:09 2025 +0200

    Suppression mise à jour delta.

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 2d3ae44a8186..fcc9daa893d1 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -11394,7 +11394,6 @@ update_reallocated_descriptor (stmtblock_t *block, 
gfc_loopinfo *loop)
          UPDATE_VALUE (info->start[dim]);
          UPDATE_VALUE (info->end[dim]);
          UPDATE_VALUE (info->stride[dim]);
-         UPDATE_VALUE (info->delta[dim]);
        }
 
 #undef UPDATE_VALUE
@@ -11768,16 +11767,6 @@ gfc_alloc_allocatable_for_assignment (gfc_loopinfo 
*loop,
   tmp = gfc_conv_descriptor_offset (desc);
   gfc_add_modify (&fblock, tmp, 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))

Reply via email to