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
|
Last modified: 1987-02-18
Generated: 2016-12-26 |
Generated by src2html V0.67
page hit count: 1050 |
|