diff options
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index 474ad0b..c4cdcd6 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -114,6 +114,8 @@ tree gfor_fndecl_fdate; tree gfor_fndecl_ttynam; tree gfor_fndecl_in_pack; tree gfor_fndecl_in_unpack; +tree gfor_fndecl_cfi_to_gfc; +tree gfor_fndecl_gfc_to_cfi; tree gfor_fndecl_associated; tree gfor_fndecl_system_clock4; tree gfor_fndecl_system_clock8; @@ -3619,6 +3621,14 @@ gfc_build_builtin_function_decls (void) get_identifier (PREFIX("internal_unpack")), ".wR", void_type_node, 2, pvoid_type_node, pvoid_type_node); + gfor_fndecl_cfi_to_gfc = gfc_build_library_function_decl_with_spec ( + get_identifier (PREFIX("cfi_desc_to_gfc_desc")), ".ww", + void_type_node, 2, pvoid_type_node, ppvoid_type_node); + + gfor_fndecl_gfc_to_cfi = gfc_build_library_function_decl_with_spec ( + get_identifier (PREFIX("gfc_desc_to_cfi_desc")), ".wR", + void_type_node, 2, ppvoid_type_node, pvoid_type_node); + gfor_fndecl_associated = gfc_build_library_function_decl_with_spec ( get_identifier (PREFIX("associated")), ".RR", integer_type_node, 2, ppvoid_type_node, ppvoid_type_node); |