https://gcc.gnu.org/g:cc2084b11fecbda8f341b906cb72ed329f115e8b
commit cc2084b11fecbda8f341b906cb72ed329f115e8b Author: Mikael Morin <[email protected]> Date: Sat Sep 6 17:37:52 2025 +0200 Modif implémentation descriptor_extent_get Diff: --- gcc/fortran/trans-descriptor.cc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc index 5a5f57835ea5..556a749fad6c 100644 --- a/gcc/fortran/trans-descriptor.cc +++ b/gcc/fortran/trans-descriptor.cc @@ -602,8 +602,8 @@ gfc_conv_descriptor_extent_get (tree desc, tree dim) tree ubound = gfc_conv_descriptor_ubound_get (desc, dim); tree tmp = fold_build2_loc (input_location, MINUS_EXPR, gfc_array_index_type, - gfc_index_one_node, lbound); - return fold_build2_loc (input_location, PLUS_EXPR, gfc_array_index_type, + lbound, gfc_index_one_node); + return fold_build2_loc (input_location, MINUS_EXPR, gfc_array_index_type, ubound, tmp); }
