Commit | Line | Data |
---|---|---|
547779a8 WH |
1 | #include "stdio.h" |
2 | #include "f2c.h" | |
3 | ||
4 | /* called when a subscript is out of range */ | |
5 | ||
6 | #ifdef KR_headers | |
7 | extern VOID sig_die(); | |
8 | integer s_rnge(varn, offset, procn, line) char *varn, *procn; ftnint offset, line; | |
9 | #else | |
10 | extern VOID sig_die(char*,int); | |
11 | integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line) | |
12 | #endif | |
13 | { | |
14 | register int i; | |
15 | ||
16 | fprintf(stderr, "Subscript out of range on file line %ld, procedure ", line); | |
17 | while((i = *procn) && i != '_' && i != ' ') | |
18 | putc(*procn++, stderr); | |
19 | fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1); | |
20 | while((i = *varn) && i != ' ') | |
21 | putc(*varn++, stderr); | |
22 | sig_die(".", 1); | |
23 | #ifdef __cplusplus | |
24 | return 0; | |
25 | #endif | |
26 | } |