Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/sharing2.f90 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | a06113de4d67 |
children | 1830386684a0 |
line wrap: on
line source
! { dg-do run } use omp_lib integer :: i, j, k, m, n logical :: l equivalence (i, m) equivalence (j, n) i = 4 j = 8 l = .false. !$omp parallel private (k) firstprivate (i) shared (j) num_threads (2) & !$omp& reduction (.or.:l) l = l .or. i .ne. 4 l = l .or. j .ne. 8 !$omp barrier k = omp_get_thread_num () if (k .eq. 0) then i = 14 j = 15 end if !$omp barrier if (k .eq. 1) then if (i .ne. 4 .or. j .ne. 15) l = .true. i = 24 j = 25 end if !$omp barrier if (j .ne. 25 .or. i .ne. (k * 10 + 14)) l = .true. !$omp end parallel if (l) STOP 1 if (j .ne. 25) STOP 2 end