diff options
author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-12-19 16:09:12 +0000 |
---|---|---|
committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2016-12-19 16:09:12 +0000 |
commit | f080a3625c9866c2beae22f52ab5a09874229d0c (patch) | |
tree | 6d4c93a26869afbcca5faf17e3aa10c0a2245d00 /libgfortran | |
parent | 8478cf8a392c4143ab6c1c0f953f4a8bce3e7ba2 (diff) |
* trans.h: Remove gfor_fndecl_stop_numeric_f08.
* trans-decl.c: Remove gfor_fndecl_stop_numeric_f08.
* trans-stmt.c (gfc_trans_stop): Use gfor_fndecl_stop_numeric
instead of gfor_fndecl_stop_numeric_f08.
* gfortran.map: Remove _gfortran_stop_numeric_f08.
* runtime/stop.c: Rename stop_numeric_f08 into stop_numeric.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@243803 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran')
-rw-r--r-- | libgfortran/ChangeLog | 5 | ||||
-rw-r--r-- | libgfortran/gfortran.map | 1 | ||||
-rw-r--r-- | libgfortran/runtime/stop.c | 18 |
3 files changed, 5 insertions, 19 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 114b006b409..36c994ae417 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,5 +1,10 @@ 2016-12-19 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + * gfortran.map: Remove _gfortran_stop_numeric_f08. + * runtime/stop.c: Rename stop_numeric_f08 into stop_numeric. + +2016-12-19 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + * Makefile.am: Remove ISO_C_BINDING runtime functions. * Makefile.in: Regenerate. * gfortran.map: Remove all __iso_c_binding_c_f_pointer_* symbols. diff --git a/libgfortran/gfortran.map b/libgfortran/gfortran.map index 80cf29ad843..c2b491af3cc 100644 --- a/libgfortran/gfortran.map +++ b/libgfortran/gfortran.map @@ -1108,7 +1108,6 @@ GFORTRAN_1.4 { _gfortran_parity_l8; _gfortran_parity_l16; _gfortran_selected_real_kind2008; - _gfortran_stop_numeric_f08; _gfortran_transfer_array_write; _gfortran_transfer_character_write; _gfortran_transfer_character_wide_write; diff --git a/libgfortran/runtime/stop.c b/libgfortran/runtime/stop.c index 26896e8511e..8f5431b2e97 100644 --- a/libgfortran/runtime/stop.c +++ b/libgfortran/runtime/stop.c @@ -90,24 +90,6 @@ void stop_numeric (GFC_INTEGER_4 code) { report_exception (); - if (code == -1) - code = 0; - else - st_printf ("STOP %d\n", (int)code); - - exit (code); -} - - -/* A Fortran 2008 numeric STOP statement. */ - -extern _Noreturn void stop_numeric_f08 (GFC_INTEGER_4); -export_proto(stop_numeric_f08); - -void -stop_numeric_f08 (GFC_INTEGER_4 code) -{ - report_exception (); st_printf ("STOP %d\n", (int)code); exit (code); } |