[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Non renseignement dtype par défaut

[Mikael Morin via Gcc-cvs]

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

commit 8af77250f7e46d9913e6f2b44ac4bbac4c9fd1db
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sun Aug 10 20:56:19 2025 +0200

    Non renseignement dtype par défaut

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

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 7ab26b5a05ad..67f13cf20848 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -951,13 +951,11 @@ gfc_init_descriptor_variable (stmtblock_t *block, 
gfc_symbol *sym, tree descr)
       gfc_conv_descriptor_data_set (block, descr, null_pointer_node);
       if (flag_coarray == GFC_FCOARRAY_LIB && sym->attr.codimension)
        gfc_conv_descriptor_token_set (block, descr, null_pointer_node);
-    }
-
-  tree etype;
 
-  gcc_assert (sym->as && sym->as->rank>=0);
-  etype = gfc_get_element_type (TREE_TYPE (descr));
-  gfc_conv_descriptor_dtype_set (block, descr,
-                                gfc_get_dtype_rank_type (sym->as->rank,
-                                                         etype));
+      gcc_assert (sym->as && sym->as->rank>=0);
+      tree etype = gfc_get_element_type (TREE_TYPE (descr));
+      gfc_conv_descriptor_dtype_set (block, descr,
+                                    gfc_get_dtype_rank_type (sym->as->rank,
+                                                             etype));
+    }
 }