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/get_with_fn_parameter.f90

This commit is contained in:
Mikael Morin 2025-10-12 14:40:24 +02:00
parent 45b2938296
commit c94031aef4
2 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -6599,9 +6599,13 @@ contiguous_argument (gfc_actual_arglist *arg)
/* False for intrinsic procedures, the library functions get array
descriptors as arguments. */
if (expr
&& expr->expr_type == EXPR_FUNCTION
&& expr->value.function.isym != nullptr)
return false;
&& expr->expr_type == EXPR_FUNCTION)
if (gfc_intrinsic_sym *isym = expr->value.function.isym)
{
if (isym->id == GFC_ISYM_CAF_GET)
return true;
return false;
}
if (dummy == nullptr)
return true;

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

@ -1345,7 +1345,6 @@ gfc_conv_intrinsic_caf_get (gfc_se *se, gfc_expr *expr, tree lhs,
{
gfc_se tmp_se;
gfc_init_se (&tmp_se, nullptr);
tmp_se.bytes_strided = 1;
gfc_conv_expr_descriptor (&tmp_se, array_expr);
gfc_add_block_to_block (&se->pre, &tmp_se.pre);
gfc_add_block_to_block (&se->post, &tmp_se.post);