xref: /csrg-svn/usr.bin/f77/libF77/s_stop.c (revision 10545)
1*10545Sdlw /*
2*10545Sdlw  *	"@(#)s_stop.c	1.1"
3*10545Sdlw  */
4*10545Sdlw 
5*10545Sdlw #include <stdio.h>
6*10545Sdlw 
7*10545Sdlw s_stop(s, n)
8*10545Sdlw char *s;
9*10545Sdlw long int n;
10*10545Sdlw {
11*10545Sdlw int i;
12*10545Sdlw 
13*10545Sdlw if(n > 0)
14*10545Sdlw 	{
15*10545Sdlw 	fprintf(stderr, "STOP: ");
16*10545Sdlw 	for(i = 0; i<n ; i++)
17*10545Sdlw 		putc(*s++, stderr);
18*10545Sdlw 	putc('\n', stderr);
19*10545Sdlw 	}
20*10545Sdlw f_exit();
21*10545Sdlw _cleanup();
22*10545Sdlw exit(0);
23*10545Sdlw }
24