git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Correction régression associate_70.f90

This commit is contained in:
Mikael Morin 2025-10-15 22:26:25 +02:00
parent f9a83a99eb
commit 3ef8924ea0
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
gcc/fortran/trans-array.cc
View File

@ -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); gcc_assert (TREE_CODE (ptr_type) == POINTER_TYPE);
if (TREE_CODE (TREE_TYPE (ptr_type)) == ARRAY_TYPE) if (TREE_CODE (TREE_TYPE (ptr_type)) == ARRAY_TYPE)
ptr_type = build_pointer_type (TREE_TYPE (TREE_TYPE (ptr_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, tree p = fold_build2_loc (input_location, POINTER_PLUS_EXPR,
ptr_type, ptr, offset); ptr_type, ptr, offset);
se->expr = build_fold_indirect_ref_loc (input_location, p); se->expr = build_fold_indirect_ref_loc (input_location, p);