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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:5932deec3e300efa18013ab6c7ebc2c73115e23a

commit 5932deec3e300efa18013ab6c7ebc2c73115e23a
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 063687cf5c84..6ce643c0cfbf 100644
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -3509,6 +3509,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 820d38f5a27b..7fd809dde1e8 100644
--- a/gcc/fortran/resolve.cc
+++ b/gcc/fortran/resolve.cc
@@ -17985,6 +17985,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;
 }