[gcc(refs/users/mikael/heads/suppr_allocated_in_scope_v03)] Correction régression allocate_with_source_5.f90

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:172f2922700fa4c4949bcc56acaeca99b4e925b4

commit 172f2922700fa4c4949bcc56acaeca99b4e925b4
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 36b1391a305b..7ed3be59885d 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;