https://gcc.gnu.org/g:7c733d39d86e00b832ae827db79bdf2449cf8739
commit 7c733d39d86e00b832ae827db79bdf2449cf8739 Author: Mikael Morin <[email protected]> Date: Wed Sep 10 13:00:05 2025 +0200 Renseignement span Diff: --- gcc/fortran/trans-descriptor.h | 1 + gcc/fortran/trans-expr.cc | 2 ++ 2 files changed, 3 insertions(+) diff --git a/gcc/fortran/trans-descriptor.h b/gcc/fortran/trans-descriptor.h index 52762c3c94a4..95537f202d2e 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); diff --git a/gcc/fortran/trans-expr.cc b/gcc/fortran/trans-expr.cc index 96b8f62ad692..3492a92f6e36 100644 --- a/gcc/fortran/trans-expr.cc +++ b/gcc/fortran/trans-expr.cc @@ -11357,6 +11357,8 @@ fcncall_realloc_result (gfc_se *se, int rank, tree dtype) else gfc_conv_descriptor_dtype_set (&se->pre, desc, gfc_get_dtype (TREE_TYPE (desc))); + gfc_conv_descriptor_span_set (&se->pre, desc, + gfc_conv_descriptor_elem_len_get (desc)); res_desc = gfc_evaluate_now (desc, &se->pre); gfc_conv_descriptor_data_set (&se->pre, res_desc, null_pointer_node);
