Return to gwdtst.f CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.lib / libU77 / test

Annotation of 43BSDTahoe/usr.lib/libU77/test/gwdtst.f, revision 1.1

1.1     ! root        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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.