[gcc(refs/users/mikael/heads/refactor_descriptor_v05)] Correction régression ISO_Fortran_binding_1

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:2baca74547229817902eb513195b6a029977e33c

commit 2baca74547229817902eb513195b6a029977e33c
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu Jun 5 11:40:37 2025 +0200

    Correction régression ISO_Fortran_binding_1

Diff:
---
 gcc/fortran/trans-expr.cc | 2 --
 1 file changed, 2 deletions(-)

diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc
index 545ebb7a3a34..7d850b11c47a 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -6008,8 +6008,6 @@ gfc_conv_gfc_desc_to_cfi_desc (gfc_se *parmse, gfc_expr 
*e, gfc_symbol *fsym)
         While sm is fine as it uses span*stride and not elem_len.  */
       if (POINTER_TYPE_P (TREE_TYPE (gfc)))
        gfc = build_fold_indirect_ref_loc (input_location, gfc);
-      else if (is_subref_array (e) && e->ts.type != BT_CHARACTER)
-       gfc_get_dataptr_offset (&se.pre, gfc, gfc, NULL_TREE, true, e);
     }
   if (e->ts.type == BT_CHARACTER)
     {