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