https://gcc.gnu.org/g:60098f0a8f1c9a8384f81518d623b6490af35ef4
commit 60098f0a8f1c9a8384f81518d623b6490af35ef4
Author: Mikael Morin <mik...@gcc.gnu.org>
Date: Fri Feb 14 13:50:51 2025 +0100
Essai suppression code inutile
Diff:
---
gcc/fortran/trans-expr.cc | 10 ----------
1 file changed, 10 deletions(-)
diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 0db7ba3fd52e..b33b45fde1dd 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -5485,16 +5485,6 @@ gfc_conv_subref_array_arg (gfc_se *se, gfc_expr * expr,
int g77,
/* Translate the expression. */
gfc_conv_expr (&rse, expr);
- /* Reset the offset for the function call since the loop
- is zero based on the data pointer. Note that the temp
- comes first in the loop chain since it is added second. */
- if (gfc_is_class_array_function (expr))
- {
- tmp = loop.ss->loop_chain->info->data.array.descriptor;
- gfc_conv_descriptor_offset_set (&loop.pre, tmp,
- gfc_index_zero_node);
- }
-
gfc_conv_tmp_array_ref (&lse);
if (intent != INTENT_OUT)
