date and time created 81/02/18 21:49:27 by dlw

SCCS-vsn: usr.bin/f77/libU77/ierrno_.c 1.1

diff --git a/usr/src/usr.bin/f77/libU77/ierrno_.c b/usr/src/usr.bin/f77/libU77/ierrno_.c
new file mode 100644 (file)
index 0000000..0709ff5
--- /dev/null
+++ b/usr/src/usr.bin/f77/libU77/ierrno_.c
@@ -0,0 +1,17 @@
+/*
+char id_ierrno[] = "@(#)ierrno_.c      1.1";
+ *
+ * return the current value of the system error register
+ *
+ * calling sequence:
+ *     ier = ierrno()
+ * where:
+ *     ier will receive the current value of errno
+ */
+
+extern int errno;
+
+long ierrno_()
+{
+       return((long)errno);
+}