date and time created 90/06/25 14:07:13 by bostic

SCCS-vsn: usr.bin/f77/libU77/test/serrno_.c 5.1

diff --git a/usr/src/usr.bin/f77/libU77/test/serrno_.c b/usr/src/usr.bin/f77/libU77/test/serrno_.c
new file mode 100644 (file)
index 0000000..1230f93
--- /dev/null
+++ b/usr/src/usr.bin/f77/libU77/test/serrno_.c
@@ -0,0 +1,4 @@
+extern int errno;
+serrno_(n)
+long *n;
+{      errno = *n; }