https://gcc.gnu.org/g:2edb7e0aaee58904373e6ccd85020b9e753d01e0
commit 2edb7e0aaee58904373e6ccd85020b9e753d01e0 Author: Mikael Morin <[email protected]> Date: Fri Sep 18 12:14:22 2026 +0200 Essai correction régression associate_46 Diff: --- gcc/fortran/trans-array.cc | 2 ++ 1 file changed, 2 insertions(+) diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc index 49518010de79..705596044ba3 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -7888,6 +7888,8 @@ gfc_get_dataptr_offset (stmtblock_t *block, tree parm, tree desc, tree offset, /* Set the target data pointer. */ if (POINTER_TYPE_P (TREE_TYPE (tmp)) + && (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 = tmp; else
