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 6