12528Sdlw /* 2*23023Skre * Copyright (c) 1980 Regents of the University of California. 3*23023Skre * All rights reserved. The Berkeley software License Agreement 4*23023Skre * specifies the terms and conditions for redistribution. 52528Sdlw * 6*23023Skre * @(#)getgid_.c 5.1 06/07/85 7*23023Skre */ 8*23023Skre 9*23023Skre /* 102528Sdlw * get group id 112528Sdlw * 122528Sdlw * calling sequence: 132528Sdlw * integer getgid, gid 142528Sdlw * gid = getgid() 152528Sdlw * where: 162528Sdlw * gid will be the real group id 172528Sdlw */ 182528Sdlw 192528Sdlw long getgid_() 202528Sdlw { 212528Sdlw return((long)getgid()); 222528Sdlw } 23