https://gcc.gnu.org/g:678f770b44a585b9827163c4b07416949ef69320
commit 678f770b44a585b9827163c4b07416949ef69320 Author: Mikael Morin <[email protected]> Date: Fri Feb 14 13:46:24 2025 +0100 Renommage gfc_array_init_count -> gfc_descr_init_count Diff: --- gcc/fortran/trans-array.cc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc index e950cbf3e765..80f21d6f8de9 100644 --- a/gcc/fortran/trans-array.cc +++ b/gcc/fortran/trans-array.cc @@ -8418,7 +8418,7 @@ get_array_memory_size (tree element_size, tree elements_count, /*GCC ARRAYS*/ static tree -gfc_array_init_count (tree descriptor, int rank, int corank, gfc_expr ** lower, +gfc_descr_init_count (tree descriptor, int rank, int corank, gfc_expr ** lower, gfc_expr ** upper, stmtblock_t * pblock, stmtblock_t * descriptor_block, tree * overflow, tree expr3_elem_size, gfc_expr *expr3, tree expr3_desc, @@ -8831,7 +8831,7 @@ gfc_array_allocate (gfc_se * se, gfc_expr * expr, tree status, tree errmsg, later will mislead the generation of the array dimensions for allocatable/ pointer components in derived types. */ int rank = alloc_w_e3_arr_spec ? expr->rank : ref->u.ar.as->rank; - tree count = gfc_array_init_count (se->expr, rank, + tree count = gfc_descr_init_count (se->expr, rank, coarray ? ref->u.ar.as->corank : 0, lower, upper, &se->pre, &set_descriptor_block, &overflow,
