2 ! { dg-options "-std=gnu -fdefault-integer-8" }
4 character(len
=*), parameter :: n
= "foobar_file"
8 close (10,status
="delete")
11 close (10,status
="keep")
13 if (access(n
,"") /= 0 .or
. access(n
," ") /= 0 .or
. access(n
,"r") /= 0 .or
. &
14 access(n
,"R") /= 0 .or
. access(n
,"w") /= 0 .or
. access(n
,"W") /= 0) &
19 if (access(n
,"x") /= 0 .or
. access(n
,"X") /= 0) call abort
23 if (i
== 0 .and
. getuid() /= 0) then
24 if (access(n
,"w") == 0 .or
. access(n
,"W") == 0) call abort
28 close (10,status
="delete")
30 if (access(n
,"") == 0 .or
. access(n
," ") == 0 .or
. access(n
,"r") == 0 .or
. &
31 access(n
,"R") == 0 .or
. access(n
,"w") == 0 .or
. access(n
,"W") == 0) &