gwdtst.f

<B>Digital的Unix操作系统VAX 4.2源码</B>

	character*50 path
	integer getcwd, chdir

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