1 files changed, 25 insertions, 0 deletions
diff --git a/contrib/libf2c/libF77/exit_.c b/contrib/libf2c/libF77/exit_.c
new file mode 100644
index 0000000..adf3d85
--- /dev/null
+++ b/contrib/libf2c/libF77/exit_.c
@@ -0,0 +1,25 @@
+/* This gives the effect of
+
+	subroutine exit(rc)
+	integer*4 rc
+	stop
+	end
+
+ * with the added side effect of supplying rc as the program's exit code.
+ */
+
+#include "f2c.h"
+#undef abs
+#undef min
+#undef max
+#include <stdlib.h>
+extern void f_exit (void);
+
+void
+G77_exit_0 (integer * rc)
+{
+#ifdef NO_ONEXIT
+  f_exit ();
+#endif
+  exit (*rc);
+}