[gcc(refs/users/mikael/heads/refactor_descriptor_v07)] Utilisation gfc_clear_descriptor

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:8d3c9aa006c0a62dbf50eb49a4c6eff636852c20

commit 8d3c9aa006c0a62dbf50eb49a4c6eff636852c20
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Jul 15 21:49:27 2025 +0200

    Utilisation gfc_clear_descriptor

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

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 39e953fa2af3..45a42c5aae52 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -978,10 +978,9 @@ gfc_conv_derived_to_class (gfc_se *parmse, gfc_expr *e, 
gfc_symbol *fsym,
              tmp = gfc_finish_block (&block);
 
              gfc_init_block (&block);
-             gfc_conv_descriptor_data_set (&block, ctree, null_pointer_node);
+             gfc_clear_descriptor (&block, fsym, ctree);
              if (derived_array && *derived_array != NULL_TREE)
-               gfc_conv_descriptor_data_set (&block, *derived_array,
-                                             null_pointer_node);
+               gfc_clear_descriptor (&block, fsym, *derived_array);
 
              tmp = build3_v (COND_EXPR, cond_optional, tmp,
                              gfc_finish_block (&block));