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
Last modified: 1983-05-20
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 475
Valid CSS Valid XHTML 1.0 Strict