https://gcc.gnu.org/g:44a227906fc8896fe9feb5a55c2111b4479ec39c
commit 44a227906fc8896fe9feb5a55c2111b4479ec39c
Author: Mikael Morin <mik...@gcc.gnu.org>
Date: Sat Aug 16 19:09:50 2025 +0200
Refactoring set_dimension_fields set_pdt_array_descriptor
Diff:
---
gcc/fortran/trans-descriptor.cc | 10 ++++------
1 file changed, 4 insertions(+), 6 deletions(-)
diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 9cbd26df3ce5..0dd2ddd0f1b6 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -2628,13 +2628,11 @@ gfc_set_pdt_array_descriptor (stmtblock_t *block, tree
descr,
gfc_free_expr (e);
tree upper = tse.expr;
gfc_add_block_to_block (block, &tse.pre);
- gfc_conv_descriptor_ubound_set (block, descr, gfc_rank_cst[i], upper);
+
+ set_dimension_fields (block, descr, gfc_rank_cst[i], lower, upper, size,
+ &offset);
+
gfc_add_block_to_block (block, &tse.post);
- gfc_conv_descriptor_stride_set (block, descr, gfc_rank_cst[i], size);
- size = gfc_evaluate_now (size, block);
- offset = fold_build2_loc (input_location, MINUS_EXPR,
- gfc_array_index_type, offset, size);
- offset = gfc_evaluate_now (offset, block);
tree tmp = fold_build2_loc (input_location, MINUS_EXPR,
gfc_array_index_type, upper, lower);
tmp = fold_build2_loc (input_location, PLUS_EXPR, gfc_array_index_type,
