[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction ICE PR95196

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:5bea5bce0ddf85b88a62063ab0683eaefe92320d

commit 5bea5bce0ddf85b88a62063ab0683eaefe92320d
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Apr 11 12:46:21 2025 +0200

    Correction ICE PR95196

Diff:
---
 gcc/fortran/trans-array.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 2741fc3ffe6e..23ee20b30b56 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -2180,7 +2180,7 @@ gfc_build_constant_array_constructor (gfc_expr * expr, 
tree type)
          tree type = tmptype;
          for (int j = expr->rank - 1; j > r; j--)
            {
-             gcc_assert (GFC_ARRAY_TYPE_P (type)); 
+             gcc_assert (TREE_CODE (type) == ARRAY_TYPE); 
              type = TREE_TYPE (type);
            }