[gcc(refs/users/mikael/heads/refactor_descriptor_v01)] Correction régression coarray dummy_3

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:25d2fec9625389541648d78c367df2b237ea1d70

commit 25d2fec9625389541648d78c367df2b237ea1d70
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Jan 10 14:09:37 2025 +0100

    Correction régression coarray dummy_3

Diff:
---
 gcc/fortran/trans-expr.cc | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 57a976df58ff..14f92e7575dc 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -832,6 +832,9 @@ gfc_get_vptr_from_expr (tree expr)
 int
 gfc_descriptor_rank (tree descriptor)
 {
+  if (TREE_TYPE (descriptor) != NULL_TREE)
+    return GFC_TYPE_ARRAY_RANK (TREE_TYPE (descriptor));
+
   tree dim = gfc_get_descriptor_dimension (descriptor);
   tree dim_type = TREE_TYPE (dim);
   gcc_assert (TREE_CODE (dim_type) == ARRAY_TYPE);