contrib/libf2c/libF77/s_rnge.c

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