2004-07-15 Toon Moene <toon@moene.indiv.nluug.nl>

[pf3gnuchains/gcc-fork.git] / libf2c / libF77 / exit_.c

diff --git a/libf2c/libF77/exit_.c b/libf2c/libF77/exit_.c
deleted file mode 100644 (file)
index adf3d85..0000000
--- a/libf2c/libF77/exit_.c
+++ /dev/null
@@ -1,25 +0,0 @@
-/* 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);
-}