Mercurial > hg > CbC > CbC_gcc

comparison libgomp/testsuite/libgomp.fortran/reduction6.f90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents a06113de4d67
children 1830386684a0
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
6 a = 9 6 a = 9
7 nthreads = -1 7 nthreads = -1
8 call foo (a (2:4, 3:5), nthreads) 8 call foo (a (2:4, 3:5), nthreads)
9 if (nthreads .eq. 3) then 9 if (nthreads .eq. 3) then
10 write (c, '(36i1)') a 10 write (c, '(36i1)') a
11 if (c .ne. '999999999999966699966699966699999999') call abort 11 if (c .ne. '999999999999966699966699966699999999') STOP 1
12 end if 12 end if
13 contains 13 contains
14 subroutine foo (b, nthreads) 14 subroutine foo (b, nthreads)
15 use omp_lib 15 use omp_lib
16 integer, dimension (3:, 5:) :: b 16 integer, dimension (3:, 5:) :: b
25 !$omp master 25 !$omp master
26 nthreads = omp_get_num_threads () 26 nthreads = omp_get_num_threads ()
27 !$omp end master 27 !$omp end master
28 b = 2 28 b = 2
29 !$omp end parallel 29 !$omp end parallel
30 if (err .gt. 0) call abort 30 if (err .gt. 0) STOP 2
31 end subroutine foo 31 end subroutine foo
32 end 32 end