[gcc(refs/users/mikael/heads/refactor_descriptor_v291.01)] Renseignement span

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

commit a77cad600330272282daf00de77d764a044a6fe7
Author: Mikael Morin <[email protected]>
Date:   Mon Jul 27 18:54:05 2026 +0200

    Renseignement span

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

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 0dab0cdd2cc6..4ac253a3a818 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -1075,6 +1075,8 @@ gfc_create_unallocated_library_result_descriptor (stmtblock_t *block, tree sourc
     dtype = gfc_get_dtype (TREE_TYPE (source_descr));
 
   gfc_conv_descriptor_dtype_set (block, source_descr, dtype);
+  gfc_conv_descriptor_span_set (block, source_descr,
+				gfc_conv_descriptor_elem_len_get (source_descr));
 
   tree res_desc = gfc_evaluate_now (source_descr, block);
   gfc_conv_descriptor_data_set (block, res_desc, null_pointer_node);