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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:9f92a30796525a77417bc22bd96aeca0e6a0191b

commit 9f92a30796525a77417bc22bd96aeca0e6a0191b
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 b34e03bda718..4bbafe69144e 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -9901,6 +9901,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,