1C 2C Copyright (c) 1980 The Regents of the University of California. 3C All rights reserved. 4C 5C %sccs.include.proprietary.f% 6C 7C @(#)gwdtst.f 5.2 (Berkeley) 04/12/91 8C 9 10 character*50 path 11 integer getcwd, chdir 12 13 ier = getcwd(path) 14 write(*,*) ier, path 15 ier = chdir("..") 16 ier = getcwd(path) 17 write(*,*) ier, path 18 end 19