home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / g77-0.5.15-src.tgz / tar.out / fsf / g77 / f / runtime / libF77 / s_rnge.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  680b  |  27 lines
  1. #include "stdio.h"
  2. #include "f2c.h"
  3.  
  4. /* called when a subscript is out of range */
  5.  
  6. #ifdef KR_headers
  7. extern VOID sig_die();
  8. integer s_rnge(varn, offset, procn, line) char *varn, *procn; ftnint offset, line;
  9. #else
  10. extern VOID sig_die(char*,int);
  11. integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line)
  12. #endif
  13. {
  14. register int i;
  15.  
  16. fprintf(stderr, "Subscript out of range on file line %ld, procedure ", line);
  17. while((i = *procn) && i != '_' && i != ' ')
  18.     putc(*procn++, stderr);
  19. fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1);
  20. while((i = *varn) && i != ' ')
  21.     putc(*varn++, stderr);
  22. sig_die(".", 1);
  23. #ifdef __cplusplus
  24. return 0;
  25. #endif
  26. }
  27.