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

[Mikael Morin via Gcc-cvs]

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

commit d6f3e4e2b5578e7bd7dbd9807cde762c2bd31194
Author: Mikael Morin <mik...@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)