https://gcc.gnu.org/g:f6cd6f2cb3194c24144d12c024238e7ce17fe3de
commit f6cd6f2cb3194c24144d12c024238e7ce17fe3de Author: Mikael Morin <[email protected]> Date: Mon Feb 17 14:43:06 2025 +0100 Suppression modif offset trans_associate_var Diff: --- gcc/fortran/trans-stmt.cc | 15 --------------- 1 file changed, 15 deletions(-) diff --git a/gcc/fortran/trans-stmt.cc b/gcc/fortran/trans-stmt.cc index bb60e8e94027..c7c685285afe 100644 --- a/gcc/fortran/trans-stmt.cc +++ b/gcc/fortran/trans-stmt.cc @@ -2228,21 +2228,6 @@ trans_associate_var (gfc_symbol *sym, gfc_wrapped_block *block) desc = gfc_class_data_get (se.expr); - /* Set the offset. */ - offset = gfc_index_zero_node; - for (n = 0; n < e->rank; n++) - { - dim = gfc_rank_cst[n]; - tmp = fold_build2_loc (input_location, MULT_EXPR, - gfc_array_index_type, - gfc_conv_descriptor_stride_get (desc, dim), - gfc_conv_descriptor_lbound_get (desc, dim)); - offset = fold_build2_loc (input_location, MINUS_EXPR, - gfc_array_index_type, - offset, tmp); - } - gfc_conv_descriptor_offset_set (&se.pre, desc, offset); - if (need_len_assign) { if (e->symtree
