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

[Mikael Morin via Gcc-cvs]

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

commit bf7bae9e671d057252e728ad8d3bb32d8545bbde
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,