1*47940Sbostic /*-
2*47940Sbostic * Copyright (c) 1980 The Regents of the University of California.
3*47940Sbostic * All rights reserved.
422983Skre *
5*47940Sbostic * %sccs.include.proprietary.c%
610544Sdlw */
710544Sdlw
8*47940Sbostic #ifndef lint
9*47940Sbostic static char sccsid[] = "@(#)s_rnge.c 5.2 (Berkeley) 04/12/91";
10*47940Sbostic #endif /* not lint */
11*47940Sbostic
1210544Sdlw #include <stdio.h>
1310544Sdlw
1410544Sdlw /* called when a subscript is out of range */
1510544Sdlw
s_rnge(varn,offset,procn,line)1610544Sdlw s_rnge(varn, offset, procn, line)
1710544Sdlw char *varn, *procn;
1810544Sdlw long int offset;
1910544Sdlw int line;
2010544Sdlw {
2110544Sdlw register int i;
2210544Sdlw
2310544Sdlw fprintf(stderr, "Subscript out of range on file line %d, procedure ", line);
2410544Sdlw for(i = 0 ; i < 8 && *procn!='_' ; ++i)
2510544Sdlw putc(*procn++, stderr);
2610544Sdlw fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1);
2710544Sdlw for(i = 0 ; i < 6 && *varn!=' ' ; ++i)
2810544Sdlw putc(*varn++, stderr);
2910544Sdlw fprintf(stderr, ".\n");
3020187Slibs f77_abort();
3110544Sdlw }
32