https://gcc.gnu.org/g:588b9d597052483d4a8e105d8a4718ab8097090b

commit 588b9d597052483d4a8e105d8a4718ab8097090b
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Jul 7 10:29:49 2025 +0200

    Annulation suppression mise à jour saved_offset

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index b7040bb7e6c9..7be2d7b11a62 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -11736,6 +11736,9 @@ gfc_alloc_allocatable_for_assignment (gfc_loopinfo 
*loop,
      running offset.  Use the saved_offset instead.  */
   tmp = gfc_conv_descriptor_offset (desc);
   gfc_add_modify (&fblock, tmp, offset);
+  if (linfo->saved_offset
+      && VAR_P (linfo->saved_offset))
+    gfc_add_modify (&fblock, linfo->saved_offset, tmp);
 
   /* Now set the deltas for the lhs.  */
   for (n = 0; n < expr1->rank; n++)

Reply via email to