PR 78534, 83704 Handle large formatted I/O

[gcc.git] / libgfortran / runtime / stop.c

diff --git a/libgfortran/runtime/stop.c b/libgfortran/runtime/stop.c
index 8b8a41f72742745e5d84f20cd7b78541a19ddcb4..6f8b62f83857b675d166d8be78996b0daac9fc36 100644 (file)
--- a/libgfortran/runtime/stop.c
+++ b/libgfortran/runtime/stop.c
@@ -1,5 +1,5 @@
 /* Implementation of the STOP statement.
-   Copyright (C) 2002-2015 Free Software Foundation, Inc.
+   Copyright (C) 2002-2018 Free Software Foundation, Inc.
    Contributed by Paul Brook <paul@nowt.org>
 
 This file is part of the GNU Fortran runtime library (libgfortran).
@@ -24,8 +24,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 <http://www.gnu.org/licenses/>.  */
 
 #include "libgfortran.h"
-#include <stdlib.h>
-#include <string.h>
 
 #ifdef HAVE_UNISTD_H
 #include <unistd.h>
@@ -88,24 +86,6 @@ export_proto(stop_numeric);
 
 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);