4.2BSD/usr/src/usr.lib/libF77/exit_.c

Compare this file to the similar file:
Show the results in this format: 

/*
 *	"@(#)exit_.c	1.1"
 */


exit_(n)
long *n;
{
	f_exit();
	_cleanup();
	exit((int)*n);
}