https://gcc.gnu.org/g:f6a7f668f10d819e898310ea271e213e0ef76462
commit f6a7f668f10d819e898310ea271e213e0ef76462 Author: Mikael Morin <[email protected]> Date: Mon Jun 22 16:53:30 2026 +0200 Correction type rang Revert "Revert partiel type rang" This reverts commit e0b074f9fbd249e6367146e1313f2f9d963ad80a. Suppression déclaration gfc_conv_descriptor_rank Revert "Remise déclaration gfc_conv_descriptor_rank" This reverts commit 5ce7d5bb0d646b8b70f2e639f1320d1c7835ba45. Revert "Export gfc_conv_descriptor_rank" This reverts commit 2b58bb9d3207f1dad1e5abf1b1802a2ded65888f. Diff: --- gcc/fortran/trans-array.cc | 4 +--- gcc/fortran/trans-descriptor.cc | 8 ++++---- gcc/fortran/trans-descriptor.h | 1 - 3 files changed, 5 insertions(+), 8 deletions(-) diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc index 78319ca0a70b..25e9394b530c 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -9179,9 +9179,7 @@ gfc_conv_array_parameter (gfc_se *se, gfc_expr *expr, bool g77, if (expr->rank == -1) { - tree idx = gfc_create_var (TREE_TYPE (gfc_conv_descriptor_rank - (old_desc)), - "idx"); + tree idx = gfc_create_var (signed_char_type_node, "idx"); tree stride = gfc_create_var (gfc_array_index_type, "stride"); stmtblock_t loop_body; diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc index 13b99605b97b..cbb59c6a16fa 100644 --- a/gcc/fortran/trans-descriptor.cc +++ b/gcc/fortran/trans-descriptor.cc @@ -199,8 +199,8 @@ gfc_conv_descriptor_span_set (stmtblock_t *block, tree desc, tree value) /* Return a reference to the rank of array descriptor DESC. */ -tree -gfc_conv_descriptor_rank (tree desc) +static tree +conv_descriptor_rank (tree desc) { tree tmp; tree dtype; @@ -218,7 +218,7 @@ gfc_conv_descriptor_rank (tree desc) tree gfc_conv_descriptor_rank_get (tree desc) { - return gfc_conv_descriptor_rank (desc); + return conv_descriptor_rank (desc); } /* Add code to BLOCK setting to VALUE the rank of the array descriptor DESC. */ @@ -227,7 +227,7 @@ void gfc_conv_descriptor_rank_set (stmtblock_t *block, tree desc, tree value) { location_t loc = input_location; - tree t = gfc_conv_descriptor_rank (desc); + tree t = conv_descriptor_rank (desc); gfc_add_modify_loc (loc, block, t, fold_convert_loc (loc, TREE_TYPE (t), value)); } diff --git a/gcc/fortran/trans-descriptor.h b/gcc/fortran/trans-descriptor.h index f4636b534e80..2d076f384519 100644 --- a/gcc/fortran/trans-descriptor.h +++ b/gcc/fortran/trans-descriptor.h @@ -20,7 +20,6 @@ along with GCC; see the file COPYING3. If not see #define GFC_TRANS_DESCRIPTOR_H -tree gfc_conv_descriptor_rank (tree); tree gfc_get_descriptor_dimension (tree); tree gfc_conv_descriptor_token (tree);
