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 12