[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction mvbits_8
Mikael Morin
mikael@gcc.gnu.org
Thu Jun 5 09:15:53 GMT 2025
https://gcc.gnu.org/g:c77ed2c7c01541e79c9ddc94bbff755c737ce7a0
commit c77ed2c7c01541e79c9ddc94bbff755c737ce7a0
Author: Mikael Morin <mikael@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)
More information about the Gcc-cvs
mailing list