https://gcc.gnu.org/g:aa994c0e02d47cef8986bb1ffa6da107b22ec9fb
commit aa994c0e02d47cef8986bb1ffa6da107b22ec9fb Author: Mikael Morin <[email protected]> Date: Sun Jul 5 13:02:00 2026 +0200 Correction PR96727 etc 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 7530a881f5f4..e9ab89d5c884 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -8744,7 +8744,7 @@ gfc_tree_array_size (stmtblock_t *block, tree desc, gfc_expr *expr, tree dim) if (akind == GFC_ARRAY_ASSUMED_RANK_CONT || akind == GFC_ARRAY_ASSUMED_RANK) { tmp = fold_build2_loc (input_location, PLUS_EXPR, - gfc_array_dim_rank_type, dim, gfc_rank_cst[1]); + gfc_array_dim_rank_type, idx, gfc_rank_cst[1]); cond = fold_build2_loc (input_location, EQ_EXPR, boolean_type_node, tmp, rank); tmp = fold_build2_loc (input_location, EQ_EXPR, boolean_type_node,
