[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction régression c_f_pointer_tests_4

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:defadd2c346b94585512c7ad7124a837214c47a2

commit defadd2c346b94585512c7ad7124a837214c47a2
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sun Aug 17 13:24:59 2025 +0200

    Correction régression c_f_pointer_tests_4

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

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 0da148c188e0..8dc24c8507cc 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -2004,9 +2004,6 @@ gfc_set_descriptor_with_shape (stmtblock_t *block, tree 
desc,
   gfc_add_block_to_block (block, &loop.post);
   gfc_cleanup_loop (&loop);
 
-  gfc_add_modify (block, offset,
-                 fold_build1_loc (input_location, NEGATE_EXPR,
-                                  gfc_array_index_type, offset));
   gfc_conv_descriptor_offset_set (block, desc, offset);
 }