From 22f252c1bfb976636e54bc35e3f0ad6b275d24fa Mon Sep 17 00:00:00 2001
From: David Wasley <dlw@ucbvax.Berkeley.EDU>
Date: Thu, 19 Feb 1981 17:23:25 -0800
Subject: [PATCH] date and time created 81/02/19 09:23:25 by dlw

SCCS-vsn: usr.bin/f77/libU77/getgid_.c 1.1
---
 usr/src/usr.bin/f77/libU77/getgid_.c | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 usr/src/usr.bin/f77/libU77/getgid_.c

diff --git a/usr/src/usr.bin/f77/libU77/getgid_.c b/usr/src/usr.bin/f77/libU77/getgid_.c
new file mode 100644
index 0000000000..b367426b09
--- /dev/null
+++ b/usr/src/usr.bin/f77/libU77/getgid_.c
@@ -0,0 +1,16 @@
+/*
+char id_getgid[] = "@(#)getgid_.c	1.1";
+ *
+ * get group id
+ *
+ * calling sequence:
+ *	integer getgid, gid
+ *	gid = getgid()
+ * where:
+ *	gid will be the real group id
+ */
+
+long getgid_()
+{
+	return((long)getgid());
+}
-- 
2.20.1