Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/chmod_2.f90 @ 111:04ced10e8804
gcc 7
| author | kono |
|---|---|
| date | Fri, 27 Oct 2017 22:46:09 +0900 |
| parents | |
| children | 84e7813d76e9 |
comparison
equal
deleted
inserted
replaced
| 68:561a7518be6b | 111:04ced10e8804 |
|---|---|
| 1 ! { dg-do run { target { ! { *-*-mingw* *-*-cygwin* spu-*-* } } } } | |
| 2 ! { dg-options "-std=gnu" } | |
| 3 ! See PR38956. Test fails on cygwin when user has Administrator rights | |
| 4 implicit none | |
| 5 character(len=*), parameter :: n = "foobar_file_chmod_2" | |
| 6 integer :: i | |
| 7 | |
| 8 open (10,file=n) | |
| 9 close (10,status="delete") | |
| 10 | |
| 11 open (10,file=n) | |
| 12 close (10,status="keep") | |
| 13 | |
| 14 if (access(n,"") /= 0 .or. access(n," ") /= 0 .or. access(n,"r") /= 0 .or. & | |
| 15 access(n,"R") /= 0 .or. access(n,"w") /= 0 .or. access(n,"W") /= 0) & | |
| 16 call abort | |
| 17 | |
| 18 i = chmod (n, "a+x") | |
| 19 if (i == 0) then | |
| 20 if (access(n,"x") /= 0 .or. access(n,"X") /= 0) call abort | |
| 21 end if | |
| 22 | |
| 23 i = chmod (n, "a-w") | |
| 24 if (i == 0 .and. getuid() /= 0) then | |
| 25 if (access(n,"w") == 0 .or. access(n,"W") == 0) call abort | |
| 26 end if | |
| 27 | |
| 28 open (10,file=n) | |
| 29 close (10,status="delete") | |
| 30 | |
| 31 if (access(n,"") == 0 .or. access(n," ") == 0 .or. access(n,"r") == 0 .or. & | |
| 32 access(n,"R") == 0 .or. access(n,"w") == 0 .or. access(n,"W") == 0) & | |
| 33 call abort | |
| 34 | |
| 35 end |