https://gcc.gnu.org/g:d3aa492ac95b2e28c8451cdd6d0c6a71a86da147
commit d3aa492ac95b2e28c8451cdd6d0c6a71a86da147 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 7d29672c574e..1d24e182cf97 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);
