[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Correction régression class_dummy_11.f90

[Mikael Morin via Gcc-cvs]

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

commit bb29203f9fb6167c7717658eb43d2a68f7a1f2cd
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sun Sep 14 18:13:57 2025 +0200

    Correction régression class_dummy_11.f90

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 927649b7c6cb..3fa03c5fc234 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -1606,6 +1606,9 @@ gfc_copy_descriptor (stmtblock_t *block, tree dest, tree 
src, bool lhs_type)
   gfc_conv_descriptor_dtype_set (block, dest,
                                 gfc_conv_descriptor_dtype_get (src));
 
+  gfc_conv_descriptor_span_set (block, dest,
+                               gfc_conv_descriptor_span_get (src));
+
   /* Assign the dimension as range-ref.  */
   tree tmp = gfc_get_descriptor_dimension (dest);
   tree tmp2 = gfc_get_descriptor_dimension (src);