git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Correction régression coarray_lib_move_alloc_1.f90

This commit is contained in:
Mikael Morin 2025-10-14 12:01:03 +02:00
parent 01b729b192
commit 4425a20cef
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/trans-descriptor.cc
View File

@ -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
{