https://gcc.gnu.org/g:7f6d305a466cda9bfd1b3438fcbe78c71458578d
commit 7f6d305a466cda9bfd1b3438fcbe78c71458578d
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 be5df5e1fa8e..fcd6dfee43c2 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -5478,16 +5478,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)
