diff options
Diffstat (limited to 'contrib/libf2c/libI77/err.c')
| -rw-r--r-- | contrib/libf2c/libI77/err.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/contrib/libf2c/libI77/err.c b/contrib/libf2c/libI77/err.c index e7ac23a6cfec..56d82ac4b19e 100644 --- a/contrib/libf2c/libI77/err.c +++ b/contrib/libf2c/libI77/err.c @@ -163,8 +163,7 @@ f__fatal(int n, char *s) dead = 1; if (f__init & 1) { if (f__curunit) { - fprintf(stderr,"apparent state: unit %d ", - (int)(f__curunit-f__units)); + fprintf(stderr,"apparent state: unit %d ",f__curunit-f__units); fprintf(stderr, f__curunit->ufnm ? "named %s\n" : "(unnamed)\n", f__curunit->ufnm); } |