4 /* called when a subscript is out of range */
6 extern void sig_die (char *, int);
8 s_rnge (char *varn, ftnint offset, char *procn, ftnint line)
12 fprintf (stderr, "Subscript out of range on file line %ld, procedure ",
14 while ((i = *procn) && i != '_' && i != ' ')
15 putc (*procn++, stderr);
16 fprintf (stderr, ".\nAttempt to access the %ld-th element of variable ",
18 while ((i = *varn) && i != ' ')
19 putc (*varn++, stderr);
21 return 0; /* not reached */