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);
