[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Renseignement span

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:6e6cfa782106bdc191bb243d5d97e4145af53fc3

commit 6e6cfa782106bdc191bb243d5d97e4145af53fc3
Author: Mikael Morin <mik...@gcc.gnu.org>
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 994e9543adab..55e2798234b4 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -2968,6 +2968,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 70dfab8b6f6d..8214a30e4ed3 100644
--- a/gcc/fortran/trans-descriptor.h
+++ b/gcc/fortran/trans-descriptor.h
@@ -67,6 +67,7 @@ void gfc_conv_descriptor_version_set (stmtblock_t *block, 
tree desc, tree value)
 void gfc_conv_descriptor_rank_set (stmtblock_t *block, tree desc, tree value);
 void gfc_conv_descriptor_rank_set (stmtblock_t *block, tree desc, int value);
 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_null_descriptor (tree type);
 tree gfc_conv_descriptor_size (tree, int);