diff options
Diffstat (limited to 'gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/omp_atomic2.f90')
-rw-r--r-- | gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/omp_atomic2.f90 | 54 |
1 files changed, 0 insertions, 54 deletions
diff --git a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/omp_atomic2.f90 b/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/omp_atomic2.f90 deleted file mode 100644 index 1dea2c8eb..000000000 --- a/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/omp_atomic2.f90 +++ /dev/null @@ -1,54 +0,0 @@ -! { dg-do run } - real, dimension (20) :: r - integer, dimension (20) :: d - integer :: i, j, k, n - integer (kind = 2) :: a, b, c - - do 10 i = 1, 20 - r(i) = i -10 d(i) = 21 - i - - n = 20 - call foo (r, d, n) - - if (n .ne. 22) call abort - if (any (r .ne. 33)) call abort - - i = 1 - j = 18 - k = 23 -!$omp atomic - i = min (i, j, k, n) - if (i .ne. 1) call abort -!$omp atomic - i = max (j, n, k, i) - if (i .ne. 23) call abort - - a = 1 - b = 18 - c = 23 -!$omp atomic - a = min (a, b, c) - if (a .ne. 1) call abort -!$omp atomic - a = max (a, b, c) - if (a .ne. 23) call abort - -contains - function bar (i) - real bar - integer i - bar = 12.0 + i - end function bar - - subroutine foo (x, y, n) - integer i, y (*), n - real x (*) - do i = 1, n -!$omp atomic - x(y(i)) = x(y(i)) + bar (i) - end do -!$omp atomic - n = n + 2 - end subroutine foo -end |