diff options
Diffstat (limited to 'libf2c/libI77/endfile.c')
| -rw-r--r-- | libf2c/libI77/endfile.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/libf2c/libI77/endfile.c b/libf2c/libI77/endfile.c index 0e4ac0318e9..f7a78e12555 100644 --- a/libf2c/libI77/endfile.c +++ b/libf2c/libI77/endfile.c @@ -29,7 +29,7 @@ integer f_end(alist *a) b = &f__units[a->aunit]; if(b->ufd==NULL) { char nbuf[10]; - sprintf(nbuf,"fort.%ld",a->aunit); + sprintf(nbuf,"fort.%ld",(long)a->aunit); if (tf = fopen(nbuf, f__w_mode[0])) fclose(tf); return(0); @@ -103,6 +103,7 @@ t_runc(alist *a) rewind(tf); if (copy(tf, loc, bf)) goto bad1; + b->uwrt = 1; b->urw = 2; #ifdef NON_UNIX_STDIO if (b->ufmt) { |
