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_alloc_comp_2.f08

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

11
gcc/fortran/trans-intrinsic.cc
View File

@ -1270,7 +1270,16 @@ contiguous_array (gfc_expr *expr)
{
gfc_ref *ref;
gcc_assert (expr && expr->expr_type == EXPR_VARIABLE);
gcc_assert (expr);
if (expr->expr_type == EXPR_FUNCTION
&& expr->value.function.esym
&& expr->value.function.esym->result
&& expr->value.function.esym->result->attr.pointer)
return false;
if (expr->expr_type != EXPR_VARIABLE)
return true;
bool contiguous = true;
if (expr->symtree->n.sym->ts.type == BT_CLASS