[unix-history] / .ref-BSD-3 / usr / src / libF77 / subout.c

#include <stdio.h>

subout(varn, offset, procn, line)
char *varn, *procn;
long int offset;
int line;
{
register int i;

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