[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression intent_out_14

[Mikael Morin via Gcc-cvs]

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

commit a325cc951f0ee66b73a7ac6a9b4a3717e7b0544c
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Apr 25 21:06:48 2025 +0200

    Correction régression intent_out_14

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 578df75953ad..2e63f65660fc 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -9782,6 +9782,10 @@ tree
 gfc_deallocate_alloc_comp (gfc_symbol * der_type, tree decl, int rank,
                           int caf_mode)
 {
+  if (DECL_P (decl)
+      && DECL_LANG_SPECIFIC (decl)
+      && GFC_DECL_SAVED_DESCRIPTOR (decl))
+    decl = GFC_DECL_SAVED_DESCRIPTOR (decl);
   return structure_alloc_comps (der_type, decl, NULL_TREE, rank,
                                DEALLOCATE_ALLOC_COMP,
                                GFC_STRUCTURE_CAF_MODE_ENABLE_COARRAY | 
caf_mode,