Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/sharing2.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 1830386684a0 |
children |
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