[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régressions libgomp private-variables kernels-private-vars-loop-gang-6

[Mikael Morin via Gcc-cvs]

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

commit bea08437b19ac880aa1d2a143f2d17686e900674
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Aug 26 18:07:26 2025 +0200

    Correction régressions libgomp private-variables 
kernels-private-vars-loop-gang-6

Diff:
---
 gcc/fortran/trans.cc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gcc/fortran/trans.cc b/gcc/fortran/trans.cc
index 55bf78a7d962..f547efe3c7b6 100644
--- a/gcc/fortran/trans.cc
+++ b/gcc/fortran/trans.cc
@@ -415,8 +415,9 @@ tree
 gfc_build_array_ref (tree type, tree base, tree index, bool 
non_negative_offset,
                     tree min_idx, tree spacing_bytes, tree offset)
 {
-  if (DECL_P (base))
-    TREE_ADDRESSABLE (base) = 1;
+  tree base_root = get_base_address (base);
+  if (DECL_P (base_root))
+    TREE_ADDRESSABLE (base_root) = 1;
 
   /* Strip NON_LVALUE_EXPR nodes.  */
   STRIP_TYPE_NOPS (index);