[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction partielle class_transformational_2

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:3964f7f41ab645966250040fdfd0c9f954459ffe

commit 3964f7f41ab645966250040fdfd0c9f954459ffe
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu May 22 17:08:12 2025 +0200

    Correction partielle class_transformational_2

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index a3d4c007d31e..c1d46b8e98d0 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -2841,13 +2841,13 @@ gfc_add_loop_ss_code (gfc_loopinfo * loop, gfc_ss * ss, 
bool subscript,
                      missing_spacing = true;
                      break;
                    }
-               if (missing_spacing
-                   && ss_info->expr->ts.type != BT_CLASS)
+               if (missing_spacing)
                  {
                    tree type = gfc_typenode_for_spec (&ss_info->expr->ts);
                    if (TYPE_SIZE_UNIT (type) == NULL_TREE
                        || !INTEGER_CST_P (TYPE_SIZE_UNIT (type))
-                       || gfc_expr_attr (ss_info->expr).pointer)
+                       || expr->ts.type == BT_CLASS
+                       || gfc_expr_attr (expr).pointer)
                      {
                        for (n = 0; n < ss_info->expr->rank; n++)
                          {