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

[Mikael Morin via Gcc-cvs]

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

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

    Revert "Non renseignement dtype par défaut"
    
    This reverts commit 8af77250f7e46d9913e6f2b44ac4bbac4c9fd1db.

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

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 67f13cf20848..7ab26b5a05ad 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -951,11 +951,13 @@ 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);
-
-      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));
     }
+
+  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));
 }