Index: runtime/minimal.c =================================================================== --- runtime/minimal.c (Revision 259055) +++ runtime/minimal.c (Arbeitskopie) @@ -187,3 +187,17 @@ 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); +}