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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:07d781ee14df16be31c7b80af6ff1a59a8db2145

commit 07d781ee14df16be31c7b80af6ff1a59a8db2145
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 3e65b5ad93a3..6df34b7bb28a 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -3057,8 +3057,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;