[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:a3ed9e949421feda44b1c60e58b58f112a548e41

commit a3ed9e949421feda44b1c60e58b58f112a548e41
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 569c97f4f3fe..4ab1dd3f897b 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;