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

[Mikael Morin via Gcc-cvs]

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

commit ff0b87297a2357b2a27f25d89f8ace69b6444b2a
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Mar 11 12:17:15 2025 +0100

    Correction régression dynamic_dispatch_11.f03
    
    Resolve class symbol type.

Diff:
---
 gcc/fortran/gfortran.h     | 1 +
 gcc/fortran/resolve.cc     | 7 +++++++
 gcc/fortran/trans-types.cc | 2 ++
 3 files changed, 10 insertions(+)

diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index 15aa6ea14585..c6bb1abac4e4 100644
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -3512,6 +3512,7 @@ void gfc_maybe_initialize_eh (void);
 /* iresolve.cc */
 const char * gfc_get_string (const char *, ...) ATTRIBUTE_PRINTF_1;
 bool gfc_find_sym_in_expr (gfc_symbol *, gfc_expr *);
+void gfc_resolve_symbol (gfc_symbol *);
 
 /* error.cc */
 locus gfc_get_location_range (locus *, unsigned, locus *, unsigned, locus *);
diff --git a/gcc/fortran/resolve.cc b/gcc/fortran/resolve.cc
index 1359f91fabe1..08acccb51d96 100644
--- a/gcc/fortran/resolve.cc
+++ b/gcc/fortran/resolve.cc
@@ -18004,6 +18004,13 @@ skip_interfaces:
 }
 
 
+void
+gfc_resolve_symbol (gfc_symbol *sym)
+{
+  resolve_symbol (sym);
+}
+
+
 /************* Resolve DATA statements *************/
 
 static struct
diff --git a/gcc/fortran/trans-types.cc b/gcc/fortran/trans-types.cc
index 7bdc9902cae8..69c147bf5720 100644
--- a/gcc/fortran/trans-types.cc
+++ b/gcc/fortran/trans-types.cc
@@ -2873,6 +2873,8 @@ get_class_canonical_type (gfc_symbol *derived, int rank, 
int corank)
   gfc_build_class_symbol (&ts, &attr, &pas);
 
   gfc_find_symbol (class_name, ns, 0, &canonical_class);
+  if (canonical_class)
+    gfc_resolve_symbol (canonical_class);
 
   return canonical_class;
 }