git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Correction partielle maxval_char_2.f90

This commit is contained in:
Mikael Morin 2025-10-07 21:02:08 +02:00
parent f5a31b42af
commit 8e4a303f38
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7619,9 +7619,10 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym,
{
/* This is where we introduce a temporary to store the
result of a non-lvalue array expression. */
if (expr
&& expr->expr_type == EXPR_FUNCTION
&& expr->value.function.isym != nullptr)
if ((expr
&& expr->expr_type == EXPR_FUNCTION
&& expr->value.function.isym != nullptr)
|| (sym && sym->attr.proc == PROC_INTRINSIC))
parmse.bytes_strided = 1;
gfc_conv_array_parameter (&parmse, e, nodesc_arg, fsym,
sym->name, NULL);