https://gcc.gnu.org/g:739ae1c91b73dc64ef79f8877a73a61964bab995
commit 739ae1c91b73dc64ef79f8877a73a61964bab995 Author: Mikael Morin <[email protected]> Date: Sat Sep 27 21:44:20 2025 +0200 Correction régression dependency_1.f90 Diff: --- gcc/fortran/trans-array.cc | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc index 2612c1815ba3..4e1baf47087d 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -7017,7 +7017,12 @@ gfc_trans_dummy_array_bias (gfc_symbol * sym, tree tmpdesc, stride, gfc_index_zero_node); tree default_stride; if (GFC_BYTES_STRIDES_ARRAY_TYPE_P (TREE_TYPE (dumdesc))) - default_stride = gfc_conv_descriptor_elem_len_get (dumdesc); + { + default_stride = gfc_conv_descriptor_elem_len_get (dumdesc); + default_stride = fold_convert_loc (input_location, + gfc_array_index_type, + default_stride); + } else default_stride = gfc_index_one_node; tmp = fold_build3_loc (input_location, COND_EXPR, gfc_array_index_type,
