[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Suppression mise à jour offset forall

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:167a65fb71613ad1476ed5cec1b520ca6e7402bb

commit 167a65fb71613ad1476ed5cec1b520ca6e7402bb
Author: Mikael Morin <mik...@gcc.gnu.org>
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 f48019309c23..71e911f8c9ee 100644
--- a/gcc/fortran/trans-stmt.cc
+++ b/gcc/fortran/trans-stmt.cc
@@ -4016,13 +4016,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
     {