date and time created 83/01/21 11:12:40 by dlw

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

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


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