https://gcc.gnu.org/g:121eac20ba2a339b5b521e58a4b744005359d3ba
commit 121eac20ba2a339b5b521e58a4b744005359d3ba Author: Mikael Morin <[email protected]> Date: Mon Feb 17 17:28:01 2025 +0100 Suppression mise à jour offset forall Diff: --- gcc/fortran/trans-stmt.cc | 7 ------- 1 file changed, 7 deletions(-) diff --git a/gcc/fortran/trans-stmt.cc b/gcc/fortran/trans-stmt.cc index 1ba72aaba697..99f46bf12154 100644 --- a/gcc/fortran/trans-stmt.cc +++ b/gcc/fortran/trans-stmt.cc @@ -4021,13 +4021,6 @@ forall_make_variable_temp (gfc_code *c, stmtblock_t *pre, stmtblock_t *post) gfc_add_block_to_block (pre, &tse.pre); gfc_add_block_to_block (post, &tse.post); tse.expr = build_fold_indirect_ref_loc (input_location, tse.expr); - - if (c->expr1->ref->u.ar.type != AR_SECTION) - { - /* Use the variable offset for the temporary. */ - tmp = gfc_conv_array_offset (old_sym->backend_decl); - gfc_conv_descriptor_offset_set (pre, tse.expr, tmp); - } } else {
