home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / f2c / f77lib / s_rnge.c < prev    next >
C/C++ Source or Header  |  1999-12-18  |  743b  |  32 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. VOID s_rnge(varn, offset, procn, line) char *varn, *procn; ftnint offset, line;
  9. #else
  10. extern VOID sig_die(char*,int);
  11. void 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. #ifdef _AMIGA
  19.     fputc(*procn++, stderr);
  20. #else
  21.     putc(*procn++, stderr);
  22. #endif
  23. fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1);
  24. while((i = *varn) && i != ' ')
  25. #ifdef _AMIGA
  26.     fputc(*varn++, stderr);
  27. #else
  28.     putc(*varn++, stderr);
  29. #endif
  30. sig_die(".", 1);
  31. }
  32.