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

This commit is contained in:
Mikael Morin 2025-10-15 19:28:33 +02:00
parent 076f0b6f87
commit 02a1c10ade
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/trans-expr.cc
View File

@ -6606,7 +6606,12 @@ contiguous_argument (gfc_actual_arglist *arg)
{ {
if (isym->id == GFC_ISYM_CAF_GET) if (isym->id == GFC_ISYM_CAF_GET)
return true; return true;
return false;
gfc_expr *noncopying_arg = gfc_get_noncopying_intrinsic_argument (expr);
if (noncopying_arg)
expr = noncopying_arg;
else
return false;
} }
if (dummy == nullptr) if (dummy == nullptr)