| 123456789101112131415161718192021222324252627282930 |
- ! { 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
|
