1 files changed, 32 insertions, 0 deletions
diff --git a/contrib/libf2c/libF77/s_stop.c b/contrib/libf2c/libF77/s_stop.c
new file mode 100644
index 0000000..571416b
--- /dev/null
+++ b/contrib/libf2c/libF77/s_stop.c
@@ -0,0 +1,32 @@
+#include <stdio.h>
+#include "f2c.h"
+
+#undef abs
+#undef min
+#undef max
+#include <stdlib.h>
+void f_exit (void);
+
+int
+s_stop (char *s, ftnlen n)
+{
+  int i;
+
+  if (n > 0)
+    {
+      fprintf (stderr, "STOP ");
+      for (i = 0; i < n; ++i)
+	putc (*s++, stderr);
+      fprintf (stderr, " statement executed\n");
+    }
+#ifdef NO_ONEXIT
+  f_exit ();
+#endif
+  exit (0);
+
+/* We cannot avoid (useless) compiler diagnostics here:		*/
+/* some compilers complain if there is no return statement,	*/
+/* and others complain that this one cannot be reached.		*/
+
+  return 0;			/* NOT REACHED */
+}