[unix-history] / usr / src / usr.bin / f77 / libF77 / exit_.c

/*
 * Copyright (c) 1980 Regents of the University of California.
 * All rights reserved.  The Berkeley software License Agreement
 * specifies the terms and conditions for redistribution.
 *
 *	@(#)exit_.c	5.1	%G%
 */


exit_(n)
long *n;
{
	int	exitcode;

#if	vax
	if (nargs() == 0)
		exitcode = 0;
	else
#endif	vax
		exitcode = *n;	/* take any segmentation violation here */
	f_exit();
	_cleanup();
	exit(exitcode);
}
Commit	Line	Data
2feb60ed	1	/*
6bb465b0 RE	2	* Copyright (c) 1980 Regents of the University of California.
	3	* All rights reserved. The Berkeley software License Agreement
	4	* specifies the terms and conditions for redistribution.
	5	*
	6	* @(#)exit_.c 5.1 %G%
2feb60ed DW	7	*/
	8
	9
	10	exit_(n)
	11	long *n;
	12	{
ac9be00b DW	13	int exitcode;
	14
	15	#if vax
	16	if (nargs() == 0)
	17	exitcode = 0;
	18	else
	19	#endif vax
	20	exitcode = n; / take any segmentation violation here */
2feb60ed DW	21	f_exit();
2feb60ed DW	22	_cleanup();
ac9be00b	23	exit(exitcode);
2feb60ed	24	}