[gcc(refs/users/mikael/heads/suppr_allocated_in_scope_v07)] Revert mise à jour delta

[Mikael Morin via Gcc-cvs]

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

commit bd596bdc8d197bb9d441fe349455c471c3e7a301
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sun Jul 6 19:02:23 2025 +0200

    Revert mise à jour delta

Diff:
---
 gcc/fortran/trans-array.cc | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 5d1312bb8c4c..e63478c86192 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -11768,6 +11768,8 @@ gfc_alloc_allocatable_for_assignment (gfc_loopinfo 
*loop,
       tmp = fold_build2_loc (input_location, MINUS_EXPR,
                             gfc_array_index_type, tmp,
                             loop->from[dim]);
+      if (linfo->delta[dim] && VAR_P (linfo->delta[dim]))
+       gfc_add_modify (&fblock, linfo->delta[dim], tmp);
     }
 
   /* Take into account _len of unlimited polymorphic entities, so that span