lang/fortran/lib/libF77/s_rnge.c

   1 #include "stdio.h"
   2 #include "f2c.h"
   3
   4 extern VOID sig_die();
   5
   6 /* called when a subscript is out of range */
   7
   8 VOID s_rnge(varn, offset, procn, line)
   9 char *varn, *procn;
  10 long int offset, line;
  11 {
  12 register int i;
  13
  14 fprintf(stderr, "Subscript out of range on file line %ld, procedure ", line);
  15 while((i = *procn) && i != '_' && i != ' ')
  16         putc(*procn++, stderr);
  17 fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1);
  18 while((i = *varn) && i != ' ')
  19         putc(*varn++, stderr);
  20 sig_die(".", 1);
  21 }