[gcc(refs/users/mikael/heads/refactor_descriptor_v03)] Correction reste régression class_defined_operator_2.f03

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:7b771742050db945ad8ff753bbcb4ba6d1063044

commit 7b771742050db945ad8ff753bbcb4ba6d1063044
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Mar 11 13:39:58 2025 +0100

    Correction reste régression class_defined_operator_2.f03

Diff:
---
 gcc/fortran/trans-types.cc | 21 +++++++++------------
 1 file changed, 9 insertions(+), 12 deletions(-)

diff --git a/gcc/fortran/trans-types.cc b/gcc/fortran/trans-types.cc
index 69c147bf5720..9c765feca482 100644
--- a/gcc/fortran/trans-types.cc
+++ b/gcc/fortran/trans-types.cc
@@ -2853,24 +2853,21 @@ get_class_canonical_type (gfc_symbol *derived, int 
rank, int corank)
   symbol_attribute attr;
   memset (&attr, 0, sizeof (attr));
   attr.dummy = 1;
-  attr.dimension = derived->attr.dimension;
-  attr.codimension = derived->attr.codimension;
+  attr.dimension = rank != 0;
+  attr.codimension = corank != 0;
 
-  gfc_array_spec as;
-  gfc_array_spec *pas;
+  gfc_array_spec *as;
   if (rank != 0 || corank != 0)
     {
-      memset (&as, 0, sizeof (as));
-      as.type = AS_DEFERRED;
-      as.rank = rank;
-      as.corank = corank;
-
-      pas = &as;
+      as = gfc_get_array_spec ();
+      as->type = AS_DEFERRED;
+      as->rank = rank;
+      as->corank = corank;
     }
   else
-    pas = nullptr;
+    as = nullptr;
 
-  gfc_build_class_symbol (&ts, &attr, &pas);
+  gfc_build_class_symbol (&ts, &attr, &as);
 
   gfc_find_symbol (class_name, ns, 0, &canonical_class);
   if (canonical_class)