https://gcc.gnu.org/g:5575c98c29f4f641812d6d690c69332ef4d0cf13

commit 5575c98c29f4f641812d6d690c69332ef4d0cf13
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sun Jun 29 14:15:55 2025 +0200

    Suppression gfc_conv_descriptor_attribute compil' OK

Diff:
---
 gcc/fortran/trans-descriptor.cc | 16 ----------------
 gcc/fortran/trans-descriptor.h  |  2 --
 2 files changed, 18 deletions(-)

diff --git a/gcc/fortran/trans-descriptor.cc b/gcc/fortran/trans-descriptor.cc
index e0e41636b443..9f7f50788f65 100644
--- a/gcc/fortran/trans-descriptor.cc
+++ b/gcc/fortran/trans-descriptor.cc
@@ -376,22 +376,6 @@ gfc_conv_descriptor_elem_len_set (stmtblock_t *block, tree 
desc,
   gfc_add_modify (block, t, fold_convert (TREE_TYPE (t), value));
 }
 
-tree
-gfc_conv_descriptor_attribute (tree desc)
-{
-  tree tmp;
-  tree dtype;
-
-  dtype = get_descriptor_dtype (desc);
-  tmp = gfc_advance_chain (TYPE_FIELDS (TREE_TYPE (dtype)),
-                          GFC_DTYPE_ATTRIBUTE);
-  gcc_assert (tmp!= NULL_TREE
-             && TREE_TYPE (tmp) == short_integer_type_node);
-  return fold_build3_loc (input_location, COMPONENT_REF, TREE_TYPE (tmp),
-                         dtype, tmp, NULL_TREE);
-}
-
-
 static tree
 get_descriptor_type (tree desc)
 {
diff --git a/gcc/fortran/trans-descriptor.h b/gcc/fortran/trans-descriptor.h
index d552d1991489..708a340e66d5 100644
--- a/gcc/fortran/trans-descriptor.h
+++ b/gcc/fortran/trans-descriptor.h
@@ -29,7 +29,6 @@ tree gfc_get_cfi_dim_extent (tree desc, tree idx);
 tree gfc_get_cfi_dim_sm (tree desc, tree idx);
 
 
-tree gfc_conv_descriptor_attribute (tree desc);
 tree gfc_get_descriptor_dimension (tree desc);
 tree gfc_conv_descriptor_dimension (tree desc, tree dim);
 tree gfc_conv_descriptor_token (tree desc);
@@ -55,7 +54,6 @@ void gfc_conv_descriptor_elem_len_set (stmtblock_t *block, 
tree desc, tree value
 void gfc_conv_descriptor_version_set (stmtblock_t *block, tree desc, tree 
value);
 void gfc_conv_descriptor_rank_set (stmtblock_t *block, tree desc, tree value);
 void gfc_conv_descriptor_rank_set (stmtblock_t *block, tree desc, int value);
-void gfc_conv_descriptor_type_set (stmtblock_t *block, tree desc, int value);
 void gfc_conv_descriptor_span_set (stmtblock_t *block, tree desc, tree value);
 void gfc_conv_descriptor_stride_set (stmtblock_t *block, tree desc, tree dim, 
tree value);
 void gfc_conv_descriptor_lbound_set (stmtblock_t *block, tree desc, tree dim, 
tree value);

Reply via email to