Return to s_rnge.c CVS log

Up to [Research Unix] / researchv10no / libF77

Annotation of researchv10no/libF77/s_rnge.c, revision 1.1

1.1     ! root        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: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.