idtst.f

来自「<B>Digital的Unix操作系统VAX 4.2源码</B>」· F 代码 · 共 6 行

	character*8 getlog
	integer getuid, getgid, getpid
	write(*,*) "I am", getlog(), "uid:", getuid(), "gid:", getgid()
	write(*,*) "This is process", getpid()
	end