diff options
author | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-04-04 09:26:13 +0000 |
---|---|---|
committer | tkoenig <tkoenig@138bc75d-0d04-0410-961f-82ee72b054a4> | 2018-04-04 09:26:13 +0000 |
commit | 763a2130210dc786229fdca68a57b315fac69626 (patch) | |
tree | 527421e61a97b4f248f102f84b90e93746f0416d /libgfortran | |
parent | daca54f75aad089023f9733ef61b2ad84e9c30ed (diff) |
2018-04-04 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/85166
* runtime/minimal.c (stop_numeric): Add new function in order to
implement numeric stop on minimal targets.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@259072 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
-rw-r--r-- | libgfortran/runtime/minimal.c | 14 |
2 files changed, 20 insertions, 0 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 8c6a71060ec..367c554275c 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2018-04-04 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR libfortran/85166 + * runtime/minimal.c (stop_numeric): Add new function in order to + implement numeric stop on minimal targets. + 2018-03-28 Jakub Jelinek <jakub@redhat.com> * io/io.h (IOPARM_DT_DEFAULT_EXP): Rename to ... diff --git a/libgfortran/runtime/minimal.c b/libgfortran/runtime/minimal.c index 42011751825..e17666b7b82 100644 --- a/libgfortran/runtime/minimal.c +++ b/libgfortran/runtime/minimal.c @@ -187,3 +187,17 @@ sys_abort (void) abort(); } + +/* A numeric STOP statement. */ + +extern _Noreturn void stop_numeric (int, bool); +export_proto(stop_numeric); + +void +stop_numeric (int code, bool quiet) +{ + if (!quiet) + printf ("STOP %d\n", code); + + exit (code); +} |