|
|
1.1 root 1: character*8 getlog
2: integer getuid, getgid, getpid
3: write(*,*) "I am", getlog(), "uid:", getuid(), "gid:", getgid()
4: write(*,*) "This is process", getpid()
5: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.