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

[Mikael Morin]

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

commit d1abf75ec8c25ca4c54d4941393f15d569177a87
Author: Mikael Morin <mikael@gcc.gnu.org>
Date:   Tue Jun 3 21:01:48 2025 +0200

    Correction régression class_result_10

Diff:
---
 gcc/fortran/trans-array.cc | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 57d6ebf5e093..bc902c5a89fb 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -7876,8 +7876,9 @@ gfc_conv_expr_descriptor (gfc_se *se, gfc_expr *expr)
     {
       gfc_allocate_lang_decl (desc);
       GFC_DECL_SAVED_DESCRIPTOR (desc) =
-	  DECL_LANG_SPECIFIC (expr->symtree->n.sym->backend_decl) ?
-	    GFC_DECL_SAVED_DESCRIPTOR (expr->symtree->n.sym->backend_decl)
+	  (DECL_P (expr->symtree->n.sym->backend_decl)
+	   && DECL_LANG_SPECIFIC (expr->symtree->n.sym->backend_decl))
+	  ? GFC_DECL_SAVED_DESCRIPTOR (expr->symtree->n.sym->backend_decl)
 	  : expr->symtree->n.sym->backend_decl;
     }
   else if (expr->expr_type == EXPR_ARRAY && VAR_P (desc)