[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:e933412b6704bbce44f6c2e97715cce3dcb749a0

commit e933412b6704bbce44f6c2e97715cce3dcb749a0
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 09cdea6e2b8b..220bffc3426d 100644
--- a/gcc/fortran/trans-expr.cc
+++ b/gcc/fortran/trans-expr.cc
@@ -5969,8 +5969,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)
     {