[gcc(refs/users/mikael/heads/refactor_descriptor_v03)] Correction PR100020.f90

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:3bf5b2590f7567c4b03b1cc1093dc1bd2b37bde4

commit 3bf5b2590f7567c4b03b1cc1093dc1bd2b37bde4
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed Mar 12 15:57:05 2025 +0100

    Correction PR100020.f90

Diff:
---
 gcc/fortran/trans-types.cc | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-types.cc b/gcc/fortran/trans-types.cc
index 0d7bab924571..cc5713c37eac 100644
--- a/gcc/fortran/trans-types.cc
+++ b/gcc/fortran/trans-types.cc
@@ -2860,7 +2860,10 @@ get_class_canonical_type (gfc_symbol *derived, int rank, 
int corank)
   if (rank != 0 || corank != 0)
     {
       as = gfc_get_array_spec ();
-      as->type = AS_DEFERRED;
+      if (rank == -1)
+       as->type = AS_ASSUMED_RANK;
+      else
+       as->type = AS_DEFERRED;
       as->rank = rank;
       as->corank = corank;
     }