home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / f2c / f77lib / s_rnge.c~ < prev    next >
Text File  |  2000-06-22  |  638b  |  24 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.     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. }
  24.