[gcc(refs/users/mikael/heads/pr53800_v02-Jerry)] Sauvegarde essai suppression code

https://gcc.gnu.org/g:0b7574496ac4fc0076445b59bd16d7088135255f

commit 0b7574496ac4fc0076445b59bd16d7088135255f
Author: Mikael Morin <[email protected]>
Date:   Mon Aug 10 09:32:12 2026 +0200

    Sauvegarde essai suppression code

Diff:
---
 gcc/fortran/trans-array.cc | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 3d3a373bf04a..d468379a4dea 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -7629,10 +7629,6 @@ gfc_get_dataptr_offset (stmtblock_t *block, tree parm, tree desc, tree offset,
 
   tmp = build_array_ref (desc, offset, NULL, NULL);
 
-  /* If there is a saved descriptor, use it.  */
-  if (POINTER_TYPE_P (TREE_TYPE (tmp)) && saved_desc_pointer_array (desc))
-    tmp = build_fold_indirect_ref_loc (input_location, tmp);
-
   /* Offset the data pointer for pointer assignments from arrays with
      subreferences; e.g. my_integer => my_type(:)%integer_component.  */
   if (subref)