diff options
| author | Janne Blomqvist <jb@gcc.gnu.org> | 2015-09-05 01:17:11 +0300 |
|---|---|---|
| committer | Janne Blomqvist <jb@gcc.gnu.org> | 2015-09-05 01:17:11 +0300 |
| commit | 71cda9cac819730fa340ebd83ec7f4bc9fd5d399 (patch) | |
| tree | 1e86b9612c9e453b6de4ddded336603afe52274f /libgfortran/runtime/stop.c | |
| parent | 5e229618cd309e8eab48f52f1ae63ea71a88be23 (diff) | |
| download | gcc-71cda9cac819730fa340ebd83ec7f4bc9fd5d399.zip gcc-71cda9cac819730fa340ebd83ec7f4bc9fd5d399.tar.gz gcc-71cda9cac819730fa340ebd83ec7f4bc9fd5d399.tar.bz2 | |
PR 53379 Print backtrace on error termination.
2015-09-05 Janne Blomqvist <jb@gcc.gnu.org>
PR fortran/53379
* libgfortran.h (exit_error): New prototype.
* runtime/error.c (exit_error): New function.
(os_error): Call exit_error instead of exit.
(runtime_error): Likewise.
(runtime_error_at): Likewise.
(internal_error): Likewise.
(generate_error): Likewise.
(notify_std): Likewise.
* runtime/stop.c (error_stop_string): Likewise.
(error_stop_numeric): Likewise.
From-SVN: r227503
Diffstat (limited to 'libgfortran/runtime/stop.c')
| -rw-r--r-- | libgfortran/runtime/stop.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/runtime/stop.c b/libgfortran/runtime/stop.c index 5c5483b..8b8a41f 100644 --- a/libgfortran/runtime/stop.c +++ b/libgfortran/runtime/stop.c @@ -145,7 +145,7 @@ error_stop_string (const char *string, GFC_INTEGER_4 len) (void) write (STDERR_FILENO, string, len); estr_write ("\n"); - exit (1); + exit_error (1); } @@ -159,5 +159,5 @@ error_stop_numeric (GFC_INTEGER_4 code) { report_exception (); st_printf ("ERROR STOP %d\n", (int) code); - exit (code); + exit_error (code); } |