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

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:68024ac7d0446fef8a42e38b58ded75f65333caa

commit 68024ac7d0446fef8a42e38b58ded75f65333caa
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Thu May 15 18:41:26 2025 +0200

    Correction régression PR100103

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

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 4abe7b6b1da8..e76f1e1ef47c 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -3552,6 +3552,9 @@ gfc_class_array_data_assign (stmtblock_t *block, tree 
lhs_desc, tree rhs_desc,
   gfc_conv_descriptor_dtype_set (block, lhs_desc,
                                 gfc_conv_descriptor_dtype_get (rhs_desc));
 
+  gfc_conv_descriptor_span_set (block, lhs_desc,
+                               gfc_conv_descriptor_span_get (rhs_desc));
+
   /* Assign the dimension as range-ref.  */
   tmp = gfc_conv_descriptor_dimensions_get (lhs_desc);
   tmp2 = gfc_conv_descriptor_dimensions_get (rhs_desc);