https://gcc.gnu.org/g:0a21d871b5037d7c0a68c845679360bcbb6c7626
commit 0a21d871b5037d7c0a68c845679360bcbb6c7626 Author: Mikael Morin <[email protected]> Date: Sat Sep 27 21:34:10 2025 +0200 Correction régression simplify_cshift_3.f90 Diff: --- gcc/fortran/trans-descriptor.cc | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc index 913348d38623..cb4a6fbe6b71 100644 --- a/gcc/fortran/trans-descriptor.cc +++ b/gcc/fortran/trans-descriptor.cc @@ -2688,7 +2688,8 @@ gfc_set_descriptor_for_assign_realloc (stmtblock_t *block, gfc_loopinfo *loop, if (GFC_DESCRIPTOR_TYPE_P (TREE_TYPE (desc))) gfc_conv_descriptor_span_set (block, desc, elemsize2); - bool bytes_counted_strides = GFC_BYTES_STRIDES_ARRAY_TYPE_P (desc); + bool bytes_counted_strides; + bytes_counted_strides = GFC_BYTES_STRIDES_ARRAY_TYPE_P (TREE_TYPE (desc)); /* For deferred character length, the 'size' field of the dtype might have changed so set the dtype. */
