[gcc(refs/users/mikael/heads/refactor_descriptor_v02)] Correction assertions

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:6dde8e01ba25432fd6719a47495e0cee5da55e12

commit 6dde8e01ba25432fd6719a47495e0cee5da55e12
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Dec 10 20:40:56 2024 +0100

    Correction assertions

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 2a2ca7cc88a4..ad1e317026af 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -746,6 +746,8 @@ gfc_build_default_class_descriptor (tree type, gfc_typespec 
&ts)
 
   tree data_field = gfc_advance_chain (fields, CLASS_DATA_FIELD);
   tree data_type = TREE_TYPE (data_field);
+
+  gcc_assert (ts.type == BT_CLASS);
   tree data_value;
   if (ts.u.derived->components->attr.dimension
       || (ts.u.derived->components->attr.codimension
@@ -759,8 +761,7 @@ gfc_build_default_class_descriptor (tree type, gfc_typespec 
&ts)
     }
   else
     {
-      gcc_assert (POINTER_TYPE_P (data_type)
-                 && GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (data_type)));
+      gcc_assert (POINTER_TYPE_P (data_type));
       data_value = fold_convert (data_type, null_pointer_node);
     }
   CONSTRUCTOR_APPEND_ELT (v, data_field, data_value);