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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:bf46420214b459a6a19ed6bde9f7e6d6c0ca71d4

commit bf46420214b459a6a19ed6bde9f7e6d6c0ca71d4
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Feb 18 15:07:23 2025 +0100

    Correction régression array_function_6.f90

Diff:
---
 gcc/fortran/resolve.cc | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc
index 6b01b8f7c209..8c1ca1003637 100644
--- a/gcc/fortran/resolve.cc
+++ b/gcc/fortran/resolve.cc
@@ -3663,6 +3663,10 @@ resolve_function (gfc_expr *expr)
     gfc_warning (OPT_Wdeprecated_declarations,
                 "Using function %qs at %L is deprecated",
                 sym->name, &expr->where);
+
+  if (!expr->value.function.isym)
+    gfc_expression_rank (expr);
+
   return t;
 }