diff options
Diffstat (limited to 'contrib/libf2c/libF77/s_rnge.c')
| -rw-r--r-- | contrib/libf2c/libF77/s_rnge.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/contrib/libf2c/libF77/s_rnge.c b/contrib/libf2c/libF77/s_rnge.c index fbe3219..766889b 100644 --- a/contrib/libf2c/libF77/s_rnge.c +++ b/contrib/libf2c/libF77/s_rnge.c @@ -13,10 +13,12 @@ integer s_rnge(char *varn, ftnint offset, char *procn, ftnint line) { register int i; -fprintf(stderr, "Subscript out of range on file line %ld, procedure ", line); +fprintf(stderr, "Subscript out of range on file line %ld, procedure ", + (long)line); while((i = *procn) && i != '_' && i != ' ') putc(*procn++, stderr); -fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", offset+1); +fprintf(stderr, ".\nAttempt to access the %ld-th element of variable ", + (long)offset+1); while((i = *varn) && i != ' ') putc(*varn++, stderr); sig_die(".", 1); |
