https://gcc.gnu.org/g:461505c06e601726526e913fe13fcc782b71b218
commit 461505c06e601726526e913fe13fcc782b71b218
Author: Mikael Morin <mik...@gcc.gnu.org>
Date: Mon Mar 17 12:43:18 2025 +0100
Suppression code inutile
Diff:
---
gcc/fortran/trans-array.cc | 10 ----------
1 file changed, 10 deletions(-)
diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index fff1546cbe33..41069947c793 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -10747,16 +10747,6 @@ gfc_alloc_allocatable_for_assignment (gfc_loopinfo
*loop,
running offset. Use the saved_offset instead. */
gfc_conv_descriptor_offset_set (&fblock, desc, offset);
- /* Now set the deltas for the lhs. */
- for (n = 0; n < expr1->rank; n++)
- {
- tmp = gfc_conv_descriptor_lbound_get (desc, gfc_rank_cst[n]);
- dim = lss->dim[n];
- tmp = fold_build2_loc (input_location, MINUS_EXPR,
- gfc_array_index_type, tmp,
- loop->from[dim]);
- }
-
/* Take into account _len of unlimited polymorphic entities, so that span
for array descriptors and allocation sizes are computed correctly. */
if (UNLIMITED_POLY (expr2))
