[gcc(refs/users/mikael/heads/pr127448_v01)] Essai nettoyage

[Mikael Morin via Gcc-cvs]

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

commit 8a967833ad9d86f74a4b3fe95846830f66fb2f66
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Sep 18 13:39:06 2026 +0200

    Essai nettoyage

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

diff --git a/gcc/fortran/trans.cc b/gcc/fortran/trans.cc
index b98fe0c680fb..2730ebf62c3d 100644
--- a/gcc/fortran/trans.cc
+++ b/gcc/fortran/trans.cc
@@ -498,9 +498,7 @@ gfc_build_spanned_array_ref (tree base, tree offset, tree 
span)
   tmp = gfc_build_addr_expr (pvoid_type_node, base);
   tmp = fold_build_pointer_plus_loc (input_location, tmp, offset);
   tmp = fold_convert (build_pointer_type (type), tmp);
-  if ((TREE_CODE (type) != INTEGER_TYPE && TREE_CODE (type) != ARRAY_TYPE)
-      || !TYPE_STRING_FLAG (type))
-    tmp = build_fold_indirect_ref_loc (input_location, tmp);
+  tmp = build_fold_indirect_ref_loc (input_location, tmp);
   return tmp;
 }