diff options
Diffstat (limited to 'lib/libF77/exit.c')
-rw-r--r-- | lib/libF77/exit.c | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/lib/libF77/exit.c b/lib/libF77/exit.c deleted file mode 100644 index da3ab5c..0000000 --- a/lib/libF77/exit.c +++ /dev/null @@ -1,37 +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 -#ifndef KR_headers -#include "stdlib.h" -#ifdef __cplusplus -extern "C" { -#endif -extern void f_exit(void); -#endif - - void -#ifdef KR_headers -exit_(rc) integer *rc; -#else -exit_(integer *rc) -#endif -{ -#ifdef NO_ONEXIT - f_exit(); -#endif - exit(*rc); - } -#ifdef __cplusplus -} -#endif |