timtst.f

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

	character*24 ctime, fdate
	integer time, tl(9), tgm(9)
	write(*,*) ctime(time()), fdate()
	call ltime(time(), tl)
	call gmtime(time(), tgm)
	write(*,*) tl, tgm
	end