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

[Mikael Morin]

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

commit bbbb66ef93c4cfd4680c555dc251afa0e47371f8
Author: Mikael Morin <mikael@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);
 	    }