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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:198238fd1f704b11d9aaffd4e2badc8c8c24f6d7

commit 198238fd1f704b11d9aaffd4e2badc8c8c24f6d7
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Wed Mar 12 19:04:10 2025 +0100

    Correction régression class_array_9.f03

Diff:
---
 gcc/fortran/trans-expr.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index d8e5a5bd41d8..0b532861982c 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -2959,7 +2959,7 @@ gfc_conv_component_ref (gfc_se * se, gfc_ref * ref)
       field = f2;
     }
 
-  if (ref->u.c.sym && ref->u.c.sym->ts.type == BT_CLASS
+  if (ref->u.c.sym && ref->u.c.sym->attr.is_class
       && strcmp ("_data", c->name) == 0)
     {
       /* Found a ref to the _data component.  Store the associated ref to