xref: /csrg-svn/usr.bin/f77/libF77/s_stop.c (revision 22984)
110545Sdlw /*
2*22984Skre  * Copyright (c) 1980 Regents of the University of California.
3*22984Skre  * All rights reserved.  The Berkeley software License Agreement
4*22984Skre  * specifies the terms and conditions for redistribution.
5*22984Skre  *
6*22984Skre  *	@(#)s_stop.c	5.1	06/07/85
710545Sdlw  */
810545Sdlw 
910545Sdlw #include <stdio.h>
1010545Sdlw 
1110545Sdlw s_stop(s, n)
1210545Sdlw char *s;
1310545Sdlw long int n;
1410545Sdlw {
1510545Sdlw int i;
1610545Sdlw 
1710545Sdlw if(n > 0)
1810545Sdlw 	{
1910545Sdlw 	fprintf(stderr, "STOP: ");
2010545Sdlw 	for(i = 0; i<n ; i++)
2110545Sdlw 		putc(*s++, stderr);
2210545Sdlw 	putc('\n', stderr);
2310545Sdlw 	}
2410545Sdlw f_exit();
2510545Sdlw _cleanup();
2610545Sdlw exit(0);
2710545Sdlw }
28