1*47946SbosticC 2*47946SbosticC Copyright (c) 1980 The Regents of the University of California. 3*47946SbosticC All rights reserved. 4*47946SbosticC 5*47946SbosticC %sccs.include.proprietary.f% 6*47946SbosticC 7*47946SbosticC @(#)idtst.f 5.2 (Berkeley) 04/12/91 8*47946SbosticC 9*47946Sbostic 1043995Sbostic character*8 getlog 1143995Sbostic integer getuid, getgid, getpid 1243995Sbostic write(*,*) "I am", getlog(), "uid:", getuid(), "gid:", getgid() 1343995Sbostic write(*,*) "This is process", getpid() 1443995Sbostic end 15