diff options
Diffstat (limited to 'lib/libF77/exit.c')
-rw-r--r-- | lib/libF77/exit.c | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/lib/libF77/exit.c b/lib/libF77/exit.c new file mode 100644 index 0000000..da3ab5c --- /dev/null +++ b/lib/libF77/exit.c @@ -0,0 +1,37 @@ +/* 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 |