gcc/libf2c/libF77/exit_.c
Kaveh R. Ghazi 9321813126 F77_aloc.c, [...]: Delete checks on __cplusplus.
* libF77/F77_aloc.c, libF77/exit_.c, libF77/main.c,
	libF77/s_paus.c, libF77/s_stop.c, libF77/setarg.c,
	libF77/setsig.c, libF77/sig_die.c, libF77/signal1.h0,
	libI77/close.c, libI77/dolio.c, libI77/fio.h, libI77/fmt.h,
	libI77/lio.h: Delete checks on __cplusplus.

From-SVN: r54133
2002-06-01 01:55:57 +00:00

26 lines
335 B
C

/* 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);
}