[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression class_67

[Mikael Morin via Gcc-cvs]

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

commit f528c6e81c4880a57bd5746411c6d89171063eb3
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sun May 18 11:20:40 2025 +0200

    Correction régression class_67

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

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index d5306b935b3e..68692618644f 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -1301,7 +1301,9 @@ gfc_conv_class_to_class (gfc_se *parmse, gfc_expr *e, 
gfc_typespec class_ts,
     }
 
   if ((ref == NULL || class_ref == ref)
-      && !(gfc_is_class_array_function (e) && parmse->class_vptr != NULL_TREE)
+      && !(gfc_is_class_array_function (e)
+          && (parmse->class_vptr != NULL_TREE
+              || parmse->class_container != NULL_TREE))
       && (!class_ts.u.derived->components->as
          || class_ts.u.derived->components->as->rank != -1))
     return;