https://gcc.gnu.org/g:1e6a7d36708eecc5f4637d71135cb26c786eeb9f
commit 1e6a7d36708eecc5f4637d71135cb26c786eeb9f Author: Mikael Morin <[email protected]> Date: Tue Sep 30 15:11:12 2025 +0200 Ajout variantes getters avec dimension entière Diff: --- gcc/fortran/trans-descriptor.cc | 19 +++++++++++++++++-- 1 file changed, 17 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc index 24ff391958df..cf60f7383154 100644 --- a/gcc/fortran/trans-descriptor.cc +++ b/gcc/fortran/trans-descriptor.cc @@ -658,13 +658,21 @@ gfc_conv_descriptor_lbound_get (tree desc, int dim) return gfc_conv_descriptor_lbound_get (desc, gfc_rank_cst[dim]); } -void +static void gfc_conv_descriptor_lbound_set (stmtblock_t *block, tree desc, tree dim, tree value) { set_value (block, get_descriptor_lbound (desc, dim), value); } +static void +gfc_conv_descriptor_lbound_set (stmtblock_t *block, tree desc, + int dim, tree value) +{ + gfc_conv_descriptor_lbound_set (block, desc, gfc_rank_cst[dim], value); +} + + static tree get_descriptor_ubound (tree desc, tree dim) { @@ -683,13 +691,20 @@ gfc_conv_descriptor_ubound_get (tree desc, int dim) return gfc_conv_descriptor_ubound_get (desc, gfc_rank_cst[dim]); } -void +static void gfc_conv_descriptor_ubound_set (stmtblock_t *block, tree desc, tree dim, tree value) { set_value (block, get_descriptor_ubound (desc, dim), value); } +static void +gfc_conv_descriptor_ubound_set (stmtblock_t *block, tree desc, + int dim, tree value) +{ + gfc_conv_descriptor_ubound_set (block, desc, gfc_rank_cst[dim], value); +} + tree gfc_conv_descriptor_sm_get (tree desc, tree dim) {
