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 20