1 files changed, 14 insertions, 0 deletions
diff --git a/libgfortran/runtime/minimal.c b/libgfortran/runtime/minimal.c
index 4201175..e17666b 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);
+}