Mercurial > hg > CbC > CbC_gcc
view libgomp/testsuite/libgomp.fortran/sharing1.f90 @ 0:a06113de4d67
first commit
author | kent <kent@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Fri, 17 Jul 2009 14:47:48 +0900 |
parents | |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } use omp_lib integer :: i, j, k logical :: l common /b/ i, j i = 4 j = 8 l = .false. !$omp parallel private (k) firstprivate (i) shared (j) num_threads (2) & !$omp& reduction (.or.:l) if (i .ne. 4 .or. j .ne. 8) l = .true. !$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 .or. j .ne. 25) call abort end