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

8
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 /* False for intrinsic procedures, the library functions get array
descriptors as arguments. */ descriptors as arguments. */
if (expr if (expr
&& expr->expr_type == EXPR_FUNCTION && expr->expr_type == EXPR_FUNCTION)
&& expr->value.function.isym != nullptr) if (gfc_intrinsic_sym *isym = expr->value.function.isym)
{
if (isym->id == GFC_ISYM_CAF_GET)
return true;
return false; return false;
}
if (dummy == nullptr) if (dummy == nullptr)
return true; 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_se tmp_se;
gfc_init_se (&tmp_se, nullptr); gfc_init_se (&tmp_se, nullptr);
tmp_se.bytes_strided = 1;
gfc_conv_expr_descriptor (&tmp_se, array_expr); gfc_conv_expr_descriptor (&tmp_se, array_expr);
gfc_add_block_to_block (&se->pre, &tmp_se.pre); gfc_add_block_to_block (&se->pre, &tmp_se.pre);
gfc_add_block_to_block (&se->post, &tmp_se.post); gfc_add_block_to_block (&se->post, &tmp_se.post);