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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:a22a8104bb87c868ee17d5e6af49e28f9a3b4f90

commit a22a8104bb87c868ee17d5e6af49e28f9a3b4f90
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 6344ff17931a..7114d7d1063d 100644
--- a/gcc/fortran/trans-stmt.cc
+++ b/gcc/fortran/trans-stmt.cc
@@ -4184,13 +4184,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
     {