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

[Mikael Morin via Gcc-cvs]

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

commit b5834effc49cacae162a35ff2deafe3a9bbc9d1c
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 | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/gcc/fortran/trans-array.cc b/gcc/fortran/trans-array.cc
index 76668d8a3ef1..88a2509a5246 100644
--- a/gcc/fortran/trans-array.cc
+++ b/gcc/fortran/trans-array.cc
@@ -11148,21 +11148,10 @@ structure_alloc_comps (gfc_symbol * der_type, tree 
decl, tree dest,
              cdesc = gfc_create_var (cdesc, "cdesc");
              DECL_ARTIFICIAL (cdesc) = 1;
 
-             gfc_add_modify (&dealloc_block, gfc_conv_descriptor_dtype (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);
+             set_contiguous_array (&dealloc_block, cdesc, ubound, comp);
 
              /* Now call the deallocator.  */
              vtab = gfc_find_vtab (&c->ts);