[gcc(refs/users/mikael/heads/refactor_descriptor_v08)] Factorisation set_contiguous_array

[Mikael Morin via Gcc-cvs]

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

commit c85aa7d34ffbb9c79d6c3a368f88de2a5a2befcf
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Fri Jan 17 17:48:42 2025 +0100

    Factorisation set_contiguous_array

Diff:
---
 gcc/fortran/trans-array.cc | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index f071a5fc9220..bb339941ae36 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -9652,21 +9652,11 @@ structure_alloc_comps (gfc_symbol * der_type, tree 
decl, tree dest,
              cdesc = gfc_create_var (cdesc, "cdesc");
              DECL_ARTIFICIAL (cdesc) = 1;
 
-             gfc_conv_descriptor_dtype_set (&dealloc_block, cdesc,
-                                            gfc_get_dtype_rank_type (1, tmp));
-             gfc_conv_descriptor_lbound_set (&dealloc_block, cdesc,
-                                             gfc_index_zero_node,
-                                             gfc_index_one_node);
-             gfc_conv_descriptor_stride_set (&dealloc_block, cdesc,
-                                             gfc_index_zero_node,
-                                             gfc_index_one_node);
-             gfc_conv_descriptor_ubound_set (&dealloc_block, cdesc,
-                                             gfc_index_zero_node, ubound);
-
              if (attr->dimension)
                comp = gfc_conv_descriptor_data_get (comp);
 
-             gfc_conv_descriptor_data_set (&dealloc_block, cdesc, comp);
+             gfc_set_contiguous_descriptor (&dealloc_block, cdesc, ubound,
+                                            comp);
 
              /* Now call the deallocator.  */
              vtab = gfc_find_vtab (&c->ts);