https://gcc.gnu.org/g:7f36a555917ff9d82c3bb9edabe971096c75d554
commit 7f36a555917ff9d82c3bb9edabe971096c75d554
Author: Mikael Morin <mik...@gcc.gnu.org>
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 3ac5a36a73e6..2ea1d47bb3d8 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,
