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

https://gcc.gnu.org/g:8269f25cd53ae54f634110cbdc8d4a4521846ae9

commit 8269f25cd53ae54f634110cbdc8d4a4521846ae9
Author: Mikael Morin <[email protected]>
Date:   Wed Sep 10 13:00:05 2025 +0200

    Renseignement span

Diff:
---
 gcc/fortran/trans-descriptor.cc | 3 +++
 gcc/fortran/trans-descriptor.h  | 1 +
 2 files changed, 4 insertions(+)

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 8701452627b1..d4018860828a 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -2934,6 +2934,9 @@ 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);
 
diff --git a/gcc/fortran/trans-descriptor.h b/gcc/fortran/trans-descriptor.h
index 2782993e22e6..799301ebcee1 100644
--- a/gcc/fortran/trans-descriptor.h
+++ b/gcc/fortran/trans-descriptor.h
@@ -44,6 +44,7 @@ void gfc_conv_descriptor_version_set (stmtblock_t *, tree, tree);
 void gfc_conv_descriptor_rank_set (stmtblock_t *, tree, tree);
 void gfc_conv_descriptor_rank_set (stmtblock_t *, tree, int);
 void gfc_conv_descriptor_token_set (stmtblock_t *block, tree desc, tree value);
+void gfc_conv_descriptor_span_set (stmtblock_t *block, tree desc, tree value);
 
 tree gfc_build_dtype_constructor (tree, int, int);