https://gcc.gnu.org/g:741aab102d5286aee88dc62d251cbc845cbe92eb

commit 741aab102d5286aee88dc62d251cbc845cbe92eb
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Mon Jun 30 18:45:32 2025 +0200

    Correction en-têtes

Diff:
---
 gcc/fortran/trans-descriptor.h | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gcc/fortran/trans-descriptor.h b/gcc/fortran/trans-descriptor.h
index d313d9fab175..1ef752a9e478 100644
--- a/gcc/fortran/trans-descriptor.h
+++ b/gcc/fortran/trans-descriptor.h
@@ -16,6 +16,26 @@ You should have received a copy of the GNU General Public 
License
 along with GCC; see the file COPYING3.  If not see
 <http://www.gnu.org/licenses/>.  */
 
+#ifndef GFC_TRANS_DESCRIPTOR_H
+#define GFC_TRANS_DESCRIPTOR_H
+
+/* Build a null array descriptor constructor.  */
+tree gfc_array_dataptr_type (tree);
+tree gfc_build_null_descriptor (tree);
+tree gfc_build_default_class_descriptor (tree, gfc_typespec &);
+void gfc_clear_descriptor (stmtblock_t *block, gfc_symbol *, tree);
+void gfc_nullify_descriptor (stmtblock_t *block, gfc_expr *, tree);
+void gfc_clear_descriptor (stmtblock_t *block, gfc_symbol *, gfc_expr *, tree);
+void gfc_set_scalar_null_descriptor (stmtblock_t *block, tree, gfc_symbol *, 
gfc_expr *, tree);
+void gfc_set_descriptor_with_shape (stmtblock_t *, tree, tree,
+                                   gfc_expr *, locus *);
+tree gfc_get_scalar_to_descriptor_type (tree scalar, symbol_attribute attr);
+void gfc_set_descriptor_from_scalar (stmtblock_t *, tree, tree,
+                                    symbol_attribute *, tree = NULL_TREE);
+void gfc_copy_sequence_descriptor (stmtblock_t &, tree, tree, bool);
+void gfc_set_gfc_from_cfi (stmtblock_t *, stmtblock_t *, tree, tree, tree,
+                          gfc_symbol *, bool, bool, bool);
+int gfc_descriptor_rank (tree);
 
 tree gfc_get_cfi_desc_base_addr (tree desc);
 tree gfc_get_cfi_desc_elem_len (tree desc);
@@ -71,3 +91,4 @@ gfc_get_descriptor_offsets_for_info (const_tree desc_type, 
tree *data_off,
                                     tree *stride_suboff, tree *lower_suboff,
                                     tree *upper_suboff);
 
+#endif /* GFC_TRANS_DESCRIPTOR_H */

Reply via email to