https://gcc.gnu.org/g:f0aa3f092f9f23d88a457600468edcc6687619a8
commit f0aa3f092f9f23d88a457600468edcc6687619a8 Author: Mikael Morin <[email protected]> Date: Fri Sep 18 14:27:53 2026 +0200 Revert "Correction régression pr113956" This reverts commit 9eba0854caa346a22293a248d590c7872c72a5c1. Diff: --- gcc/fortran/trans-array.cc | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc index 705596044ba3..784a497bf5a8 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -7887,13 +7887,7 @@ 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 - offset = gfc_build_addr_expr (gfc_array_dataptr_type (desc), tmp); + offset = gfc_build_addr_expr (gfc_array_dataptr_type (desc), tmp); /* Check for optional dummy argument being present. Arguments of BIND(C) procedures are excepted here since they are handled differently. */
