xref: /original-bsd/usr.bin/f77/libU77/getgid_.c (revision 2301fdfb)
1 /*
2  * Copyright (c) 1980 Regents of the University of California.
3  * All rights reserved.  The Berkeley software License Agreement
4  * specifies the terms and conditions for redistribution.
5  *
6  *	@(#)getgid_.c	5.1	06/07/85
7  */
8 
9 /*
10  * get group id
11  *
12  * calling sequence:
13  *	integer getgid, gid
14  *	gid = getgid()
15  * where:
16  *	gid will be the real group id
17  */
18 
19 long getgid_()
20 {
21 	return((long)getgid());
22 }
23