[gcc(refs/users/mikael/heads/pr127827_v01)] Modif recherche decl

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:5fcc00c5c316ce04a213c04e6e89e8f5ab19a468

commit 5fcc00c5c316ce04a213c04e6e89e8f5ab19a468
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed Oct 14 14:36:36 2026 +0200

    Modif recherche decl

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 8b04df6d0a59..8a6c14cf5f48 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -693,9 +693,9 @@ gfc_get_array_span (tree desc, gfc_expr *expr)
              || (GFC_CLASS_TYPE_P (TREE_TYPE (base))
                  && !strcmp (IDENTIFIER_POINTER (DECL_NAME (field_decl)), 
                              "_data")))
-           decl = field_decl;
+           decl = base;
          else
-           decl = NULL_TREE;
+           decl = field_decl;
        }
       else
        decl = NULL_TREE;