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