Imported gcc-4.4.3

[msp430-gcc.git] / libf2c / libI77 / sfe.c

diff --git a/libf2c/libI77/sfe.c b/libf2c/libI77/sfe.c
deleted file mode 100644 (file)
index b67d823..0000000
--- a/libf2c/libI77/sfe.c
+++ /dev/null
@@ -1,39 +0,0 @@
-/* sequential formatted external common routines*/
-#include "config.h"
-#include "f2c.h"
-#include "fio.h"
-
-extern char *f__fmtbuf;
-
-integer e_rsfe(Void)
-{      int n;
-       f__init = 1;
-       n=en_fio();
-       f__fmtbuf=NULL;
-       return(n);
-}
-#ifdef KR_headers
-c_sfe(a) cilist *a; /* check */
-#else
-c_sfe(cilist *a) /* check */
-#endif
-{      unit *p;
-       if(a->ciunit >= MXUNIT || a->ciunit<0)
-               err(a->cierr,101,"startio");
-       p = &f__units[a->ciunit];
-       if(p->ufd==NULL && fk_open(SEQ,FMT,a->ciunit)) err(a->cierr,114,"sfe");
-       if(!p->ufmt) err(a->cierr,102,"sfe");
-       return(0);
-}
-integer e_wsfe(Void)
-{
-       int n;
-       f__init = 1;
-       n = en_fio();
-       f__fmtbuf=NULL;
-#ifdef ALWAYS_FLUSH
-       if (!n && fflush(f__cf))
-               err(f__elist->cierr, errno, "write end");
-#endif
-       return n;
-}