[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction régression findloc_10.f90

[Mikael Morin]

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

commit a234e98c40ba40c9354bf0241feed4cc3b2fe4ef
Author: Mikael Morin <mikael@gcc.gnu.org>
Date:   Tue Sep 23 12:15:40 2025 +0200

    Correction régression findloc_10.f90

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 73f2f92b5733..3bf1ab6bd4e8 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -7317,8 +7317,8 @@ gfc_get_dataptr_offset (stmtblock_t *block, tree parm, tree desc, tree offset,
 
   /* Set the target data pointer.  */
   if (TREE_CODE (TREE_TYPE (tmp)) == POINTER_TYPE
-      && (TREE_CODE (TREE_TYPE (tmp)) == ARRAY_TYPE
-	  || TREE_CODE (TREE_TYPE (tmp)) == INTEGER_TYPE)
+      && (TREE_CODE (TREE_TYPE (TREE_TYPE (tmp))) == ARRAY_TYPE
+	  || TREE_CODE (TREE_TYPE (TREE_TYPE (tmp))) == INTEGER_TYPE)
       && TYPE_STRING_FLAG (TREE_TYPE (TREE_TYPE (tmp))))
     offset = fold_convert (gfc_array_dataptr_type (desc), tmp);
   else