[gcc(refs/users/mikael/heads/pr127448_v11)] Ajout condition

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:79ee7ab12f0b1709477643eabaaa68c5bc046009

commit 79ee7ab12f0b1709477643eabaaa68c5bc046009
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed Sep 23 13:14:04 2026 +0200

    Ajout condition

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index c459d4250db9..884978878920 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3933,6 +3933,9 @@ get_descriptor (tree base, tree decl)
   if (GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (base)))
     return base;
 
+  if (TREE_CODE (base) == INDIRECT_REF)
+    base = TREE_OPERAND (base, 0);
+
   if (TREE_CODE (base) == COMPONENT_REF)
     {
       tree comp_base = TREE_OPERAND (base, 0);