1 character*50 path 2 integer getcwd, chdir 3 4 ier = getcwd(path) 5 write(*,*) ier, path 6 ier = chdir("..") 7 ier = getcwd(path) 8 write(*,*) ier, path 9 end 10