2.9BSD - /usr/src/lib/libF77/s_rnge.c

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

Defined functions