Category : C Source Code
Archive   : F2CSRC.ZIP
Filename : S_STOP.C

 
Output of file : S_STOP.C contained in archive : F2CSRC.ZIP

#include "stdio.h"
#include "f2c.h"

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

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