https://gcc.gnu.org/g:3ef8924ea0ced778e666af6bf6e37ef7d8e4fbf4
commit 3ef8924ea0ced778e666af6bf6e37ef7d8e4fbf4 Author: Mikael Morin <[email protected]> Date: Wed Oct 15 22:26:25 2025 +0200 Correction régression associate_70.f90 Diff: --- gcc/fortran/trans-array.cc | 1 + 1 file changed, 1 insertion(+) diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc index 0226f365ef34..35bc953c9b4c 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -3978,6 +3978,7 @@ build_array_ref (gfc_se *se, tree array, tree ref_base, gfc_expr *expr, gcc_assert (TREE_CODE (ptr_type) == POINTER_TYPE); if (TREE_CODE (TREE_TYPE (ptr_type)) == ARRAY_TYPE) ptr_type = build_pointer_type (TREE_TYPE (TREE_TYPE (ptr_type))); + ptr = fold_convert_loc (input_location, ptr_type, ptr); tree p = fold_build2_loc (input_location, POINTER_PLUS_EXPR, ptr_type, ptr, offset); se->expr = build_fold_indirect_ref_loc (input_location, p);
