https://gcc.gnu.org/g:8ac952c81b9ba412f2867fd204ab2a1f2d62e7b2
commit 8ac952c81b9ba412f2867fd204ab2a1f2d62e7b2 Author: Mikael Morin <[email protected]> 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 d3e45734894b..e1d13c5b1717 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
