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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:74aeea3d9a521ae4ab1b0a7d71c3e5af34bc28fd

commit 74aeea3d9a521ae4ab1b0a7d71c3e5af34bc28fd
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu Mar 13 11:08:37 2025 +0100

    Correction régression select_type_26.f03

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

diff --git a/gcc/fortran/trans-types.cc b/gcc/fortran/trans-types.cc
index 802db821af72..e040598bcdaf 100644
--- a/gcc/fortran/trans-types.cc
+++ b/gcc/fortran/trans-types.cc
@@ -3247,6 +3247,9 @@ gfc_get_derived_type (gfc_symbol * derived, int codimen)
        GFC_DECL_PTR_ARRAY_P (c->backend_decl) = 1;
     }
 
+  if (derived->attr.is_class)
+    GFC_CLASS_TYPE_P (typenode) = 1;
+
   /* Now lay out the derived type, including the fields.  */
   if (canonical)
     TYPE_CANONICAL (typenode) = canonical;