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

This commit is contained in:
Mikael Morin 2025-10-08 13:49:14 +02:00
parent 928d928c4e
commit 38693c4f10
1 changed files with 14 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5461,6 +5461,7 @@ gfc_conv_subref_array_arg (gfc_se *se, gfc_expr * expr, int g77,
: NULL), : NULL),
loop.dimen); loop.dimen);
loop.temp_ss->info->data.temp.preserve_bounds = preserve_bounds; loop.temp_ss->info->data.temp.preserve_bounds = preserve_bounds;
loop.temp_ss->info->data.temp.bytes_strided = se->bytes_strided;
parmse->string_length = loop.temp_ss->info->string_length; parmse->string_length = loop.temp_ss->info->string_length;
@ -6979,6 +6980,19 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym,
gfc_ss *argss; gfc_ss *argss;
gfc_init_se (&parmse, NULL); gfc_init_se (&parmse, NULL);
if ((expr
&& expr->expr_type == EXPR_FUNCTION
&& expr->value.function.isym != nullptr)
|| (sym
&& (sym->attr.proc == PROC_INTRINSIC
|| sym->attr.intrinsic))
|| (fsym
&& fsym->as
&& (fsym->as->type == AS_ASSUMED_SHAPE
|| fsym->as->type == AS_ASSUMED_RANK)
&& !(fsym->attr.allocatable
|| fsym->attr.contiguous)))
parmse.bytes_strided = 1;
/* Check whether the expression is a scalar or not; we cannot use /* Check whether the expression is a scalar or not; we cannot use
e->rank as it can be nonzero for functions arguments. */ e->rank as it can be nonzero for functions arguments. */
@ -7631,11 +7645,6 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym,
{ {
/* This is where we introduce a temporary to store the /* This is where we introduce a temporary to store the
result of a non-lvalue array expression. */ result of a non-lvalue array expression. */
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, gfc_conv_array_parameter (&parmse, e, nodesc_arg, fsym,
sym->name, NULL); sym->name, NULL);
} }