aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.2.1-5666.3/libgomp/testsuite/libgomp.fortran/omp_atomic2.f90
diff options
context:
space:
mode:
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.f9054
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