https://gcc.gnu.org/g:e77e2ea336550d444cc78ef3ffca15e7e2fdbad9
commit e77e2ea336550d444cc78ef3ffca15e7e2fdbad9 Author: Mikael Morin <[email protected]> Date: Tue Oct 14 12:01:03 2025 +0200 Correction régression coarray_lib_move_alloc_1.f90 Diff: --- gcc/fortran/trans-descriptor.cc | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc index 49f8d4a4a778..915395fed0b2 100644 --- a/gcc/fortran/trans-descriptor.cc +++ b/gcc/fortran/trans-descriptor.cc @@ -2018,8 +2018,10 @@ gfc_copy_descriptor (stmtblock_t *block, tree dest, tree src) if (GFC_BYTES_STRIDES_ARRAY_TYPE_P (dest_type) == GFC_BYTES_STRIDES_ARRAY_TYPE_P (src_type) - && TYPE_MAIN_VARIANT (dest_type) - == TYPE_MAIN_VARIANT (src_type)) + && (TYPE_CANONICAL (dest_type) + == TYPE_CANONICAL (src_type) + || TYPE_MAIN_VARIANT (dest_type) + == TYPE_MAIN_VARIANT (src_type))) gfc_add_modify (block, dest, src); else {
