UNIX 7th Ed. - /usr/src/libF77/s_rnge.c

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

Defined functions