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

[Mikael Morin via Gcc-cvs]

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

commit c77ed2c7c01541e79c9ddc94bbff755c737ce7a0
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu Jun 5 11:15:36 2025 +0200

    Correction mvbits_8

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

diff --git a/gcc/fortran/trans-stmt.cc b/gcc/fortran/trans-stmt.cc
index 6949e00a3460..441d6fa3ce63 100644
--- a/gcc/fortran/trans-stmt.cc
+++ b/gcc/fortran/trans-stmt.cc
@@ -200,14 +200,6 @@ replace_ss (gfc_se *se, gfc_ss *old_ss, gfc_ss *new_ss)
   *sess = new_ss;
   new_ss->next = old_ss->next;
 
-  /* Make sure that trailing references are not lost.  */
-  if (old_ss->info
-      && old_ss->info->data.array.ref
-      && old_ss->info->data.array.ref->next
-      && !(new_ss->info->data.array.ref
-          && new_ss->info->data.array.ref->next))
-    new_ss->info->data.array.ref = old_ss->info->data.array.ref;
-
   for (loopss = &(se->loop->ss); *loopss != gfc_ss_terminator;
        loopss = &((*loopss)->loop_chain))
     if (*loopss == old_ss)