https://gcc.gnu.org/g:8691e0767bdcae1ab4558dfa3c80b0ce4ed975eb
commit 8691e0767bdcae1ab4558dfa3c80b0ce4ed975eb Author: Mikael Morin <[email protected]> Date: Sat Jun 27 22:29:58 2026 +0200 Correction régression initialization-1.f90 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 c88b4a663541..6be3cbb4cf23 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -8587,7 +8587,7 @@ gfc_tree_array_size (stmtblock_t *block, tree desc, gfc_expr *expr, tree dim) if (dim || (expr && expr->rank == 1)) { if (!dim) - dim = gfc_rank_cst[1]; + dim = gfc_rank_cst[0]; tree ubound = gfc_conv_descriptor_ubound_get (desc, dim); tree lbound = gfc_conv_descriptor_lbound_get (desc, dim);
