https://gcc.gnu.org/g:4f9dc7a8f3f44a4d48f1c3e5949e8f1f0517aeac
commit 4f9dc7a8f3f44a4d48f1c3e5949e8f1f0517aeac 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 8ef0ea3cafb0..73c2586a3ecf 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);
