OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Daily bump.
[pf3gnuchains/gcc-fork.git]
/
libf2c
/
libF77
/
s_stop.c
1
#include <stdio.h>
2
#include "f2c.h"
3
4
#ifdef KR_headers
5
extern void f_exit();
6
VOID s_stop(s, n) char *s; ftnlen n;
7
#else
8
#undef abs
9
#undef min
10
#undef max
11
#include <stdlib.h>
12
#ifdef __cplusplus
13
extern "C" {
14
#endif
15
void f_exit(void);
16
17
int s_stop(char *s, ftnlen n)
18
#endif
19
{
20
int i;
21
22
if(n > 0)
23
{
24
fprintf(stderr, "STOP ");
25
for(i = 0; i<n ; ++i)
26
putc(*s++, stderr);
27
fprintf(stderr, " statement executed\n");
28
}
29
#ifdef NO_ONEXIT
30
f_exit();
31
#endif
32
exit(0);
33
#ifdef __cplusplus
34
return 0; /* NOT REACHED */
35
}
36
#endif
37
}