home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libF77 / s_rnge.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  503 b   |  22 lines

  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. }
  22.