https://gcc.gnu.org/g:fdefef6e2cd4f9e94a8ec495eecdc8caac548ec3
commit fdefef6e2cd4f9e94a8ec495eecdc8caac548ec3 Author: Mikael Morin <mik...@gcc.gnu.org> Date: Tue Feb 18 17:25:29 2025 +0100 Correction régression allocate_with_source_5.f90 Diff: --- gcc/fortran/resolve.cc | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc index 301bda411634..4018626bab9b 100644 --- a/gcc/fortran/resolve.cc +++ b/gcc/fortran/resolve.cc @@ -3664,7 +3664,9 @@ resolve_function (gfc_expr *expr) "Using function %qs at %L is deprecated", sym->name, &expr->where); - if (!expr->value.function.isym) + if (!(expr->value.function.isym + || !expr->value.function.esym + || expr->value.function.esym->attr.elemental)) gfc_expression_rank (expr); return t;