Return to chdtst.f CVS log

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

Annotation of 43BSDTahoe/usr.lib/libU77/test/chdtst.f, revision 1.1.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.