Import of libf2c from gcc3.3.2

1 files changed, 21 insertions, 0 deletions

diff --git a/gnu/lib/libf2c/libI77/dolio.c b/gnu/lib/libf2c/libI77/dolio.c
new file mode 100644
index 00000000000..1e0c3779bb5
--- /dev/null
+++ b/gnu/lib/libf2c/libI77/dolio.c
@@ -0,0 +1,21 @@
+#include "config.h"
+#include "f2c.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+#ifdef KR_headers
+extern int (*f__lioproc)();
+
+integer do_lio(type,number,ptr,len) ftnint *number,*type; char *ptr; ftnlen len;
+#else
+extern int (*f__lioproc)(ftnint*, char*, ftnlen, ftnint);
+
+integer do_lio(ftnint *type, ftnint *number, char *ptr, ftnlen len)
+#endif
+{
+	return((*f__lioproc)(number,ptr,len,*type));
+}
+#ifdef __cplusplus
+	}
+#endif