https://gcc.gnu.org/g:92dfbcfd671c8966785f8a85dc31142d5c66a34f
commit 92dfbcfd671c8966785f8a85dc31142d5c66a34f Author: Mikael Morin <[email protected]> Date: Fri Sep 26 20:35:23 2025 +0200 Correction initialisation variable Diff: --- gcc/fortran/trans-array.cc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc index e65369a8388c..2b770b2cb9b9 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -3899,7 +3899,7 @@ build_array_ref (gfc_se *se, tree array, tree ref_base, gfc_expr *expr, tree offset = fold_convert_loc (input_location, size_type_node, index); tree p = fold_build2_loc (input_location, POINTER_PLUS_EXPR, - TREE_TYPE (p), ref_base, offset); + TREE_TYPE (ref_base), ref_base, offset); p = fold_convert_loc (input_location, GFC_TYPE_ARRAY_DATAPTR_TYPE (TREE_TYPE (array)), p); se->expr = build_fold_indirect_ref_loc (input_location, p);
