1*47946SbosticC 2*47946SbosticC Copyright (c) 1980 The Regents of the University of California. 3*47946SbosticC All rights reserved. 4*47946SbosticC 5*47946SbosticC %sccs.include.proprietary.f% 6*47946SbosticC 7*47946SbosticC @(#)gwdtst.f 5.2 (Berkeley) 04/12/91 8*47946SbosticC 9*47946Sbostic 1043994Sbostic character*50 path 1143994Sbostic integer getcwd, chdir 1243994Sbostic 1343994Sbostic ier = getcwd(path) 1443994Sbostic write(*,*) ier, path 1543994Sbostic ier = chdir("..") 1643994Sbostic ier = getcwd(path) 1743994Sbostic write(*,*) ier, path 1843994Sbostic end 19