Return to chdtst.f CVS log

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

Annotation of 42BSD/usr.lib/libU77/test/chdtst.f, revision 1.1

1.1     ! root        1:        integer chdir, unlink, access, ier(8)
        !             2:        write(*,*) "moving to /tmp"
        !             3:        ier(1) = chdir("/tmp")
        !             4:        call system("pwd")
        !             5:        open(1, file="scratch")
        !             6:        close(1)
        !             7:        write(*,*) "linking"
        !             8:        ier(2) = link("scratch", "temp")
        !             9:        ier(3) = access("scratch", " ")
        !            10:        ier(4) = access("temp", " ")
        !            11:        call system("ls -il scratch temp")
        !            12:        write(*,*) "unlinking"
        !            13:        ier(5) = unlink("scratch")
        !            14:        ier(6) = unlink("temp")
        !            15:        ier(7) = access("scratch", " ")
        !            16:        ier(8) = access("temp", " ")
        !            17:        call system("ls scratch temp")
        !            18:        write(*,*) ier
        !            19:        end

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