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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:8e35b260d66dcaf73c551dead42aa3df472e5455

commit 8e35b260d66dcaf73c551dead42aa3df472e5455
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 c2b2fc1562aa..2a6cd00be5cc 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
     {