projects
/
unix-history
/ blame
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blob
|
blame
(incremental) |
history
|
HEAD
BSD 4 development
[unix-history]
/
usr
/
src
/
lib
/
libF77
/
s_stop.c
Commit
Line
Data
15eea6e6
BJ
1
#include <stdio.h>
2
3
s_stop(s, n)
4
char *s;
5
long int n;
6
{
7
int i;
8
9
if(n > 0)
10
{
11
fprintf(stderr, "STOP ");
12
for(i = 0; i<n ; ++i)
13
putc(*s++, stderr);
14
fprintf(stderr, " statement executed\n");
15
}
16
f_exit();
17
exit(0);
18
}