From: David Wasley <dlw@ucbvax.Berkeley.EDU>
Date: Thu, 19 Feb 1981 13:49:27 +0000 (-0800)
Subject: date and time created 81/02/18 21:49:27 by dlw
X-Git-Tag: BSD-4_1_snap-Snapshot-Development~2210
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/768304924ffd7b655c2966d4d50668d1f866b7bb?hp=110c9d10f78d43fb1de020ec9d50938a43cdfdc6

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
index 0000000000..0709ff55e7
--- /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);
+}