[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Sauvegarde essai

[Mikael Morin via Gcc-cvs]

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

commit d78c12f7908f95a7820ccbd5125367dd4498caca
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sun Aug 10 13:35:28 2025 +0200

    Sauvegarde essai

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

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 4641e1ca37ea..370f2362c891 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -741,8 +741,7 @@ gfc_nullify_descriptor (stmtblock_t *block, gfc_symbol 
*sym, gfc_expr *expr,
        gfc_conv_descriptor_token_set (block, descr, null_pointer_node);
     }
 
-  tree etype;
-
+#if 0
   gfc_array_spec *as;
   if (sym->ts.type == BT_CLASS)
     as = CLASS_DATA (sym)->as;
@@ -759,9 +758,10 @@ gfc_nullify_descriptor (stmtblock_t *block, gfc_symbol 
*sym, gfc_expr *expr,
   else
     rank = -1;
 
-  etype = gfc_get_element_type (TREE_TYPE (descr));
+  tree etype = gfc_get_element_type (TREE_TYPE (descr));
   tree dtype = gfc_get_dtype_rank_type_slen (rank, etype, string_length);
   gfc_conv_descriptor_dtype_set (block, descr, dtype);
+#endif
 }
 
 void