diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/chmod_1.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/chmod_1.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/chmod_1.f90 b/gcc/testsuite/gfortran.dg/chmod_1.f90 index 452b333dc35..7aeeaaa3c65 100644 --- a/gcc/testsuite/gfortran.dg/chmod_1.f90 +++ b/gcc/testsuite/gfortran.dg/chmod_1.f90 @@ -13,16 +13,16 @@ if (access(n,"") /= 0 .or. access(n," ") /= 0 .or. access(n,"r") /= 0 .or. & access(n,"R") /= 0 .or. access(n,"w") /= 0 .or. access(n,"W") /= 0) & - call abort + STOP 1 call chmod (n, "a+x", i) if (i == 0) then - if (access(n,"x") /= 0 .or. access(n,"X") /= 0) call abort + if (access(n,"x") /= 0 .or. access(n,"X") /= 0) STOP 2 end if call chmod (n, "a-w", i) if (i == 0 .and. getuid() /= 0) then - if (access(n,"w") == 0 .or. access(n,"W") == 0) call abort + if (access(n,"w") == 0 .or. access(n,"W") == 0) STOP 3 end if open (10,file=n) @@ -30,6 +30,6 @@ if (access(n,"") == 0 .or. access(n," ") == 0 .or. access(n,"r") == 0 .or. & access(n,"R") == 0 .or. access(n,"w") == 0 .or. access(n,"W") == 0) & - call abort + STOP 4 end |