Return to actst.f CVS log

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

Annotation of 42BSD/usr.lib/libU77/test/actst.f, revision 1.1.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.