From 66a4f1c0a8b72a71600f172dc3b685adc689661c Mon Sep 17 00:00:00 2001
From: David Wasley <dlw@ucbvax.Berkeley.EDU>
Date: Fri, 21 Jan 1983 19:19:09 -0800
Subject: [PATCH] date and time created 83/01/21 11:19:09 by dlw

SCCS-vsn: usr.bin/f77/libF77/s_stop.c 1.1
---
 usr/src/usr.bin/f77/libF77/s_stop.c | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 usr/src/usr.bin/f77/libF77/s_stop.c

diff --git a/usr/src/usr.bin/f77/libF77/s_stop.c b/usr/src/usr.bin/f77/libF77/s_stop.c
new file mode 100644
index 0000000000..8461009858
--- /dev/null
+++ b/usr/src/usr.bin/f77/libF77/s_stop.c
@@ -0,0 +1,23 @@
+/*
+ *	"@(#)s_stop.c	1.1"
+ */
+
+#include <stdio.h>
+
+s_stop(s, n)
+char *s;
+long int n;
+{
+int i;
+
+if(n > 0)
+	{
+	fprintf(stderr, "STOP: ");
+	for(i = 0; i<n ; i++)
+		putc(*s++, stderr);
+	putc('\n', stderr);
+	}
+f_exit();
+_cleanup();
+exit(0);
+}
-- 
2.20.1