[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Essai suppression code inutile

[Mikael Morin]

https://gcc.gnu.org/g:4e52317e897dcb309ea91e2295f993d25466dcd4

commit 4e52317e897dcb309ea91e2295f993d25466dcd4
Author: Mikael Morin <mikael@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 387a6fed6f46..4ad31800eb89 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -5496,16 +5496,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)