Return to actst.f CVS log

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

Annotation of 43BSD/usr.lib/libU77/test/actst.f, revision 1.1

1.1     ! root        1:        integer access
        !             2:        write(*,*) "exist?", access("actst.f", " ")
        !             3:        write(*,*) "execute?", access("actst.f", "x")
        !             4:        write(*,*) "read?", access("actst.f", "r")
        !             5:        write(*,*) "write?", access("actst.f", "w")
        !             6:        write(*,*) "read/write?", access("actst.f", "rw")
        !             7:        write(*,*) "read/write/exec?", access("actst.f", "rwx")
        !             8:        write(*,*) "null name?", access(" ", "w")
        !             9:        write(*,*) "bad arg?", access("actst.f", "zzz")
        !            10:        write(*,*) "not exist?", access("XQIT%0XGE", " ")
        !            11:        end

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