* 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

1 files changed, 0 insertions, 18 deletions

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);
 }