gwdtst.f

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

	character*50 path
	integer getcwd, chdir

	ier = getcwd(path)
	write(*,*) ier, path
	ier = chdir("..")
	ier = getcwd(path)
	write(*,*) ier, path
	end