diff options
Diffstat (limited to 'gcc/fortran/trans-decl.c')
| -rw-r--r-- | gcc/fortran/trans-decl.c | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/fortran/trans-decl.c b/gcc/fortran/trans-decl.c index d2161f5..d2cb6a3 100644 --- a/gcc/fortran/trans-decl.c +++ b/gcc/fortran/trans-decl.c @@ -79,6 +79,7 @@ tree gfor_fndecl_stop_numeric; tree gfor_fndecl_stop_string; tree gfor_fndecl_runtime_error; tree gfor_fndecl_runtime_error_at; +tree gfor_fndecl_runtime_warning_at; tree gfor_fndecl_os_error; tree gfor_fndecl_generate_error; tree gfor_fndecl_set_fpe; @@ -2455,6 +2456,10 @@ gfc_build_builtin_function_decls (void) /* The runtime_error_at function does not return. */ TREE_THIS_VOLATILE (gfor_fndecl_runtime_error_at) = 1; + gfor_fndecl_runtime_warning_at = + gfc_build_library_function_decl (get_identifier (PREFIX("runtime_warning_at")), + void_type_node, -2, pchar_type_node, + pchar_type_node); gfor_fndecl_generate_error = gfc_build_library_function_decl (get_identifier (PREFIX("generate_error")), void_type_node, 3, pvoid_type_node, |