[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction régression intent_out_14.f90

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:4671ec717d00c70733070036a24afb617e7c5ee7

commit 4671ec717d00c70733070036a24afb617e7c5ee7
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed Oct 1 17:46:31 2025 +0200

    Correction régression intent_out_14.f90

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 02324e0e5b25..635806a56277 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -397,6 +397,7 @@ is_pointer_array (tree expr)
     return true;
 
   if (INDIRECT_REF_P (expr)
+      && DECL_P (TREE_OPERAND (expr, 0))
       && GFC_DECL_PTR_ARRAY_P (TREE_OPERAND (expr, 0)))
     return true;