1998-02-01 02:37:08 +01:00
|
|
|
#include <stdio.h>
|
|
|
|
#include "f2c.h"
|
|
|
|
|
|
|
|
/* called when a subscript is out of range */
|
|
|
|
|
g2c.hin, [...]: Kill VOID, Void and Int.
* g2c.hin, libF77/d_cnjg.c, libF77/main.c, libF77/r_cnjg.c,
libF77/s_cat.c, libF77/s_paus.c, libF77/s_rnge.c, libF77/setarg.c,
libF77/setsig.c, libF77/signal1.h0, libI77/dfe.c, libI77/due.c,
libI77/err.c, libI77/fio.h, libI77/fmt.c, libI77/iio.c,
libI77/ilnw.c, libI77/lread.c, libI77/lwrite.c, libI77/rsfe.c,
libI77/rsli.c, libI77/rsne.c, libI77/sfe.c, libI77/sue.c,
libI77/util.c, libI77/wrtfmt.c, libI77/wsfe.c, libI77/wsle.c,
libI77/xwsne.c, libU77/date_.c: Kill VOID, Void and Int.
From-SVN: r54134
2002-06-01 03:58:10 +02:00
|
|
|
extern void sig_die(char*,int);
|
1998-02-01 02:37:08 +01:00
|
|
|
integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line)
|
|
|
|
{
|
|
|
|
register int i;
|
|
|
|
|
2000-03-12 20:20:47 +01:00
|
|
|
fprintf(stderr, "Subscript out of range on file line %ld, procedure ",
|
|
|
|
(long)line);
|
1998-02-01 02:37:08 +01:00
|
|
|
while((i = *procn) && i != '_' && i != ' ')
|
|
|
|
putc(*procn++, stderr);
|
2000-03-12 20:20:47 +01:00
|
|
|
fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ",
|
|
|
|
(long)offset+1);
|
1998-02-01 02:37:08 +01:00
|
|
|
while((i = *varn) && i != ' ')
|
|
|
|
putc(*varn++, stderr);
|
|
|
|
sig_die(".", 1);
|
1999-05-10 16:40:59 +02:00
|
|
|
return 0; /* not reached */
|
1998-02-01 02:37:08 +01:00
|
|
|
}
|