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

[Mikael Morin]

https://gcc.gnu.org/g:7f6d305a466cda9bfd1b3438fcbe78c71458578d

commit 7f6d305a466cda9bfd1b3438fcbe78c71458578d
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 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)