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

[Mikael Morin via Gcc-cvs]

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

commit f47246af4ce670afb122bfe8fd73bdb9e32fd4f3
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 e32f92387d60..3c28052afb85 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,