xref: /csrg-svn/usr.bin/f77/libU77/getgid_.c (revision 47944)
1*47944Sbostic /*-
2*47944Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*47944Sbostic  * All rights reserved.
42528Sdlw  *
5*47944Sbostic  * %sccs.include.proprietary.c%
623023Skre  */
723023Skre 
8*47944Sbostic #ifndef lint
9*47944Sbostic static char sccsid[] = "@(#)getgid_.c	5.2 (Berkeley) 04/12/91";
10*47944Sbostic #endif /* not lint */
11*47944Sbostic 
1223023Skre /*
132528Sdlw  * get group id
142528Sdlw  *
152528Sdlw  * calling sequence:
162528Sdlw  *	integer getgid, gid
172528Sdlw  *	gid = getgid()
182528Sdlw  * where:
192528Sdlw  *	gid will be the real group id
202528Sdlw  */
212528Sdlw 
getgid_()222528Sdlw long getgid_()
232528Sdlw {
242528Sdlw 	return((long)getgid());
252528Sdlw }
26