2004-07-15 Toon Moene <toon@moene.indiv.nluug.nl>

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

diff --git a/libf2c/libI77/dolio.c b/libf2c/libI77/dolio.c
deleted file mode 100644 (file)
index e50e900..0000000
--- a/libf2c/libI77/dolio.c
+++ /dev/null
@@ -1,10 +0,0 @@
-#include "config.h"
-#include "f2c.h"
-
-extern int (*f__lioproc) (ftnint *, char *, ftnlen, ftnint);
-
-integer
-do_lio (ftnint * type, ftnint * number, char *ptr, ftnlen len)
-{
-  return ((*f__lioproc) (number, ptr, len, *type));
-}