date and time created 83/01/21 11:19:09 by dlw

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

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

#include <stdio.h>

s_stop(s, n)
char *s;
long int n;
{
int i;

if(n > 0)
       {
       fprintf(stderr, "STOP: ");
       for(i = 0; i<n ; i++)
               putc(*s++, stderr);
       putc('\n', stderr);
       }
f_exit();
_cleanup();
exit(0);
}