https://gcc.gnu.org/g:f069c2ebfbbcadcc17cbd2a84ad3374016758ffd
commit f069c2ebfbbcadcc17cbd2a84ad3374016758ffd Author: Mikael Morin <[email protected]> Date: Fri Jul 3 17:32:07 2026 +0200 Correction pr84088 Diff: --- gcc/fortran/trans-intrinsic.cc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gcc/fortran/trans-intrinsic.cc b/gcc/fortran/trans-intrinsic.cc index 58a4e4596b3c..dbd906f80230 100644 --- a/gcc/fortran/trans-intrinsic.cc +++ b/gcc/fortran/trans-intrinsic.cc @@ -8503,7 +8503,7 @@ gfc_conv_intrinsic_sizeof (gfc_se *se, gfc_expr *expr) tmp = fold_convert (gfc_array_dim_rank_type, gfc_conv_descriptor_rank (argse.expr)); loop_var = gfc_create_var (gfc_array_dim_rank_type, "i"); - gfc_add_modify (&argse.pre, loop_var, gfc_index_zero_node); + gfc_add_modify (&argse.pre, loop_var, gfc_rank_cst[0]); exit_label = gfc_build_label_decl (NULL_TREE); /* Create loop:
