https://gcc.gnu.org/g:cfa2f783ed8578f99a9f04162d4dcf60ee70ba41
commit cfa2f783ed8578f99a9f04162d4dcf60ee70ba41 Author: Mikael Morin <[email protected]> Date: Sun Jul 5 12:44:47 2026 +0200 Correction pr106945 etc Diff: --- gcc/fortran/trans-array.cc | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc index 5554987e721c..7530a881f5f4 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -8683,7 +8683,9 @@ gfc_tree_array_size (stmtblock_t *block, tree desc, gfc_expr *expr, tree dim) if (dim || (expr && expr->rank == 1)) { - if (!dim) + if (dim) + dim = fold_convert_loc (input_location, gfc_array_dim_rank_type, dim); + else dim = gfc_rank_cst[0]; tree ubound = gfc_conv_descriptor_ubound_get (desc, dim); tree lbound = gfc_conv_descriptor_lbound_get (desc, dim);
