[unix-history] / usr / src / usr.bin / f77 / libU77 / test / idtst.f

       character*8 getlog
       integer getuid, getgid, getpid
       write(*,*) "I am", getlog(), "uid:", getuid(), "gid:", getgid()
       write(*,*) "This is process", getpid()
       end