4.3BSD - /usr/src/usr.lib/libU77/test/chdtst.f

   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