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

[Mikael Morin via Gcc-cvs]

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

commit d74cdb25dde303ece54197d32a783f36cb463c99
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 2f0725c731a6..2c6eefc8a25f 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -2183,7 +2183,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);
            }