Daily bump.

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

diff --git a/libf2c/libI77/wsfe.c b/libf2c/libI77/wsfe.c
index 279fbf7..babfb34 100644 (file)
--- a/libf2c/libI77/wsfe.c
+++ b/libf2c/libI77/wsfe.c
@@ -47,11 +47,11 @@ integer s_wsfe(cilist *a)   /*start*/
 {      int n;
        if(f__init != 1) f_init();
        f__init = 3;
-       if(n=c_sfe(a)) return(n);
        f__reading=0;
        f__sequential=1;
        f__formatted=1;
        f__external=1;
+       if(n=c_sfe(a)) return(n);
        f__elist=a;
        f__hiwater = f__cursor=f__recpos=0;
        f__nonl = 0;