* libF77/configure.in: Define IEEE_COMPLEX_DIVIDE.

[pf3gnuchains/gcc-fork.git] / libf2c / libI77 / endfile.c

diff --git a/libf2c/libI77/endfile.c b/libf2c/libI77/endfile.c
index 0e4ac03..f7a78e1 100644 (file)
--- 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) {