mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-30 19:53:46 +00:00
28 lines
561 B
Fortran
28 lines
561 B
Fortran
|
! { 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
|
||
|
|
if (j.gt.0) call abort
|
||
|
|
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
|