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

[Mikael Morin via Gcc-cvs]

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

commit 2b8f41753b93e045bf9378594c37f1d852f96fd2
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Apr 21 20:23:05 2025 +0200

    Correction régression associate_37

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

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 4eebf2695c5f..52b00841a5e7 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -3079,8 +3079,6 @@ gfc_set_descriptor (stmtblock_t *block, tree dest, tree 
src, gfc_expr *src_expr,
 
   /* The 1st element in the section.  */
   tree base = gfc_index_zero_node;
-  if (src_expr->ts.type == BT_CHARACTER && src_expr->rank == 0 && corank)
-    base = gfc_conv_descriptor_elem_len_get (dest);
 
   /* The offset from the 1st element in the section.  */
   tree offset = gfc_index_zero_node;