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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:96f10811438e71886fe18291ac963b27fd8e2872

commit 96f10811438e71886fe18291ac963b27fd8e2872
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sat Feb 15 18:29:16 2025 +0100

    Correction régression class_assign_4.f90

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

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index b15e4ba5a8f9..9fe54c76e0d8 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -3616,12 +3616,6 @@ get_class_info_from_ss (stmtblock_t * pre, gfc_ss *ss, 
tree *eltype,
          tmp2 = gfc_class_len_get (class_expr);
          gfc_add_modify (pre, tmp, tmp2);
        }
-
-      if (rhs_function)
-       {
-         tmp = gfc_class_data_get (class_expr);
-         gfc_conv_descriptor_offset_set (pre, tmp, gfc_index_zero_node);
-       }
     }
   else if (rhs_ss->info->data.array.descriptor)
    {