https://gcc.gnu.org/g:92e02e30e65662d4d9d189c49507597284c45b79
commit 92e02e30e65662d4d9d189c49507597284c45b79 Author: Mikael Morin <[email protected]> Date: Wed Oct 15 14:41:53 2025 +0200 Correction régression assumed_type_18.f90 Diff: --- gcc/fortran/trans-array.cc | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc index 67eb890a11ed..fb0d65c247ba 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -7172,7 +7172,8 @@ gfc_trans_dummy_array_bias (gfc_symbol * sym, tree tmpdesc, && sym->ts.u.cl->backend_decl && TREE_CODE (sym->ts.u.cl->backend_decl) == INTEGER_CST)) - || TREE_CODE (TYPE_SIZE_UNIT (elem_type)) != INTEGER_CST) + || !(TYPE_SIZE_UNIT (elem_type) + && TREE_CODE (TYPE_SIZE_UNIT (elem_type)) == INTEGER_CST)) default_stride = gfc_conv_descriptor_elem_len_get (dumdesc); else default_stride = TYPE_SIZE_UNIT (elem_type);
