https://gcc.gnu.org/g:b444ab50696dca56179f5bc7b3f260c606d7d692
commit b444ab50696dca56179f5bc7b3f260c606d7d692 Author: Mikael Morin <[email protected]> Date: Sat Aug 16 19:17:56 2025 +0200 Refactor set_dimension_fields set_empty_descriptor Diff: --- gcc/fortran/trans-descriptor.cc | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc index e2ee82f98995..b0f162be6cc8 100644 --- a/gcc/fortran/trans-descriptor.cc +++ b/gcc/fortran/trans-descriptor.cc @@ -2966,15 +2966,10 @@ gfc_descriptor_init_count (tree descriptor, int rank, int corank, void gfc_set_empty_descriptor_bounds (stmtblock_t *block, tree descr, int rank) { + tree offset = gfc_index_zero_node; for (int n = 0; n < rank; n++) - { - gfc_conv_descriptor_lbound_set (block, descr, gfc_rank_cst[n], - gfc_index_one_node); - gfc_conv_descriptor_ubound_set (block, descr, gfc_rank_cst[n], - gfc_index_zero_node); - gfc_conv_descriptor_stride_set (block, descr, gfc_rank_cst[n], - gfc_index_zero_node); - } + set_dimension_fields (block, descr, gfc_rank_cst[n], gfc_index_one_node, + gfc_index_zero_node, gfc_index_zero_node, &offset); gfc_conv_descriptor_offset_set (block, descr, gfc_index_zero_node); }
