diff options
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/reduction6.f90')
-rw-r--r-- | gcc-4.4.3/libgomp/testsuite/libgomp.fortran/reduction6.f90 | 32 |
1 files changed, 0 insertions, 32 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/reduction6.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/reduction6.f90 deleted file mode 100644 index 9f3ec6ca8..000000000 --- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/reduction6.f90 +++ /dev/null @@ -1,32 +0,0 @@ -! { dg-do run } - - integer, dimension (6, 6) :: a - character (36) :: c - integer nthreads - a = 9 - nthreads = -1 - call foo (a (2:4, 3:5), nthreads) - if (nthreads .eq. 3) then - write (c, '(36i1)') a - if (c .ne. '999999999999966699966699966699999999') call abort - end if -contains - subroutine foo (b, nthreads) - use omp_lib - integer, dimension (3:, 5:) :: b - integer :: err, nthreads - b = 0 - err = 0 -!$omp parallel num_threads (3) reduction (+:b) - if (any (b .ne. 0)) then -!$omp atomic - err = err + 1 - end if -!$omp master - nthreads = omp_get_num_threads () -!$omp end master - b = 2 -!$omp end parallel - if (err .gt. 0) call abort - end subroutine foo -end |