-! { dg-do run }
+! { dg-do run { target { ! { *-*-mingw* *-*-cygwin* spu-*-* } } } }
! { dg-options "-std=gnu" }
+! See PR38956. Test fails on cygwin when user has Administrator rights
implicit none
character(len=*), parameter :: n = "foobar_file"
integer :: i
end if
call chmod (n, "a-w", i)
- if (i == 0) then
+ if (i == 0 .and. getuid() /= 0) then
if (access(n,"w") == 0 .or. access(n,"W") == 0) call abort
end if