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: 1983-05-20
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 468
Valid CSS Valid XHTML 1.0 Strict