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

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

Defined functions