Commit | Line | Data |
---|---|---|
82492b51 KB |
1 | C |
2 | C Copyright (c) 1980 The Regents of the University of California. | |
3 | C All rights reserved. | |
4 | C | |
ad787160 C |
5 | C This module is believed to contain source code proprietary to AT&T. |
6 | C Use and redistribution is subject to the Berkeley Software License | |
7 | C Agreement and your Software Agreement with AT&T (Western Electric). | |
82492b51 | 8 | C |
ad787160 | 9 | C @(#)idtst.f 5.2 (Berkeley) 4/12/91 |
82492b51 KB |
10 | C |
11 | ||
b0680b0d KB |
12 | character*8 getlog |
13 | integer getuid, getgid, getpid | |
14 | write(*,*) "I am", getlog(), "uid:", getuid(), "gid:", getgid() | |
15 | write(*,*) "This is process", getpid() | |
16 | end |