[unix-history] / usr / src / usr.bin / f77 / libU77 / getgid_.c

/*
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());
}
Commit	Line	Data
22f252c1 DW	1	/*
	2	char id_getgid[] = "@(#)getgid_.c 1.1";
	3	*
	4	* get group id
	5	*
	6	* calling sequence:
	7	* integer getgid, gid
	8	* gid = getgid()
	9	* where:
	10	* gid will be the real group id
	11	*/
	12
	13	long getgid_()
	14	{
	15	return((long)getgid());
	16	}