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

[Mikael Morin]

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

commit fe7cd1f179eda21577779f9309e37e8bf345b2ab
Author: Mikael Morin <mikael@gcc.gnu.org>
Date:   Fri Apr 11 17:18:48 2025 +0200

    Correction ICE ISO_Fortran_binding_5

Diff:
---
 gcc/fortran/trans-types.cc | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-types.cc b/gcc/fortran/trans-types.cc
index 5e647d2965e5..b02215f6620d 100644
--- a/gcc/fortran/trans-types.cc
+++ b/gcc/fortran/trans-types.cc
@@ -1465,7 +1465,14 @@ gfc_get_element_type (tree type)
 
       /* For arrays, which are not scalar coarrays.  */
       if (TREE_CODE (element) == ARRAY_TYPE && !TYPE_STRING_FLAG (element))
-	element = TREE_TYPE (element);
+	{
+	  int rank = GFC_TYPE_ARRAY_RANK (type);
+	  for (int i = 0; i < rank; i++)
+	    {
+	      gcc_assert (TREE_CODE (element) == ARRAY_TYPE);
+	      element = TREE_TYPE (element);
+	    }
+	}
     }
 
   return element;