[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction régression iso_fortran_binding_uint8_array.f90

[Mikael Morin via Gcc-cvs]

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

commit c7a09ee675ab7281d4df11d32dbb75229b831187
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Sep 22 13:49:39 2025 +0200

    Correction régression iso_fortran_binding_uint8_array.f90

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 11592270ddd6..02143d0ed17c 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -439,7 +439,8 @@ get_CFI_desc (gfc_symbol *sym, gfc_expr *expr,
   if (tmp && DECL_LANG_SPECIFIC (tmp) && GFC_DECL_SAVED_DESCRIPTOR (tmp))
     tmp = GFC_DECL_SAVED_DESCRIPTOR (tmp);
 
-  *desc = tmp;
+  if (desc != nullptr)
+    *desc = tmp;
   return true;
 }