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