https://gcc.gnu.org/g:80ddc856be6f06809228bc393a8be6492b00552f
commit 80ddc856be6f06809228bc393a8be6492b00552f
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 ef8d69cb9162..d13b7d9e61d4 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -5473,16 +5473,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)
