[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Refactor set_dimension_fields set_empty_descriptor

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:a535b7709f9d7e0546b47670ad0b3db4f3db2bad

commit a535b7709f9d7e0546b47670ad0b3db4f3db2bad
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sat Aug 16 19:17:56 2025 +0200

    Refactor set_dimension_fields set_empty_descriptor

Diff:
---
 gcc/fortran/trans-descriptor.cc | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index 1b08120e74a3..9b296f17ed14 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -2952,15 +2952,10 @@ gfc_descriptor_init_count (tree descriptor, int rank, 
int corank,
 void
 gfc_set_empty_descriptor_bounds (stmtblock_t *block, tree descr, int rank)
 {
+  tree offset = gfc_index_zero_node;
   for (int n = 0; n < rank; n++)
-    {
-      gfc_conv_descriptor_lbound_set (block, descr, gfc_rank_cst[n],
-                                     gfc_index_one_node);
-      gfc_conv_descriptor_ubound_set (block, descr, gfc_rank_cst[n],
-                                     gfc_index_zero_node);
-      gfc_conv_descriptor_stride_set (block, descr, gfc_rank_cst[n],
-                                     gfc_index_zero_node);
-    }
+    set_dimension_fields (block, descr, gfc_rank_cst[n], gfc_index_one_node,
+                         gfc_index_zero_node, gfc_index_zero_node, &offset);
 
   gfc_conv_descriptor_offset_set (block, descr, gfc_index_zero_node);
 }