2012-03-27 23:13:14 +00:00
|
|
|
! { dg-do run }
|
|
|
|
|
|
|
|
|
|
program tasktest
|
|
|
|
|
use omp_lib
|
|
|
|
|
integer :: i, j
|
|
|
|
|
common /tasktest_j/ j
|
|
|
|
|
j = 0
|
|
|
|
|
!$omp parallel private (i)
|
|
|
|
|
i = omp_get_thread_num ()
|
|
|
|
|
if (i.lt.2) then
|
|
|
|
|
!$omp task if (.false.) default(firstprivate)
|
|
|
|
|
call subr (i + 1)
|
|
|
|
|
!$omp end task
|
|
|
|
|
end if
|
|
|
|
|
!$omp end parallel
|
2018-12-28 15:30:48 +00:00
|
|
|
if (j.gt.0) STOP 1
|
2012-03-27 23:13:14 +00:00
|
|
|
contains
|
|
|
|
|
subroutine subr (i)
|
|
|
|
|
use omp_lib
|
|
|
|
|
integer :: i, j
|
|
|
|
|
common /tasktest_j/ j
|
|
|
|
|
if (omp_get_thread_num ().ne.(i - 1)) then
|
|
|
|
|
!$omp atomic
|
|
|
|
|
j = j + 1
|
|
|
|
|
end if
|
|
|
|
|
end subroutine subr
|
|
|
|
|
end program tasktest
|
