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++)