[gcc(refs/users/mikael/heads/refactor_descriptor_v291.01)] Renseignement span
Mikael Morin via Gcc-cvs <[email protected]>
| Newsgroups | gmane.comp.gcc.cvs |
|---|---|
| Message-ID | <[email protected]> |
https://gcc.gnu.org/g:02a52a844736a993cea128418e7a0ba2186d36d0 commit 02a52a844736a993cea128418e7a0ba2186d36d0 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);