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_poly_9.f90

This commit is contained in:
Mikael Morin 2025-10-14 11:19:12 +02:00
parent f033b6affb
commit e7e77e4d46
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2010,8 +2010,13 @@ is_assumed_rank (tree descriptor)
void void
gfc_copy_descriptor (stmtblock_t *block, tree dest, tree src) gfc_copy_descriptor (stmtblock_t *block, tree dest, tree src)
{ {
if (GFC_BYTES_STRIDES_ARRAY_TYPE_P (TREE_TYPE (dest)) tree dest_type = TREE_TYPE (dest);
== GFC_BYTES_STRIDES_ARRAY_TYPE_P (TREE_TYPE (src))) tree src_type = TREE_TYPE (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))
gfc_add_modify (block, dest, src); gfc_add_modify (block, dest, src);
else else
{ {