Retro68/gcc/libgomp/testsuite/libgomp.fortran/task4.f90

46 lines
792 B
Fortran
Raw Normal View History

2012-03-27 23:13:14 +00:00
! { dg-do run }
use omp_lib
integer :: err, e
!$omp atomic write
err = 0
!$omp parallel shared(err) private(e)
if (omp_in_final ()) then
!$omp atomic write
err = 1
endif
!$omp task if (.false.) shared(err)
if (omp_in_final ()) then
!$omp atomic write
err = 1
endif
!$omp task if (.false.) shared(err)
if (omp_in_final ()) then
!$omp atomic write
err = 1
endif
!$omp end task
!$omp end task
!$omp atomic read
e = err
!$omp task final (e .eq. 0) shared(err)
if (.not.omp_in_final ()) then
!$omp atomic write
err = 1
endif
!$omp taskyield
!$omp taskwait
!$omp task shared(err)
if (.not.omp_in_final ()) then
!$omp atomic write
err = 1
endif
!$omp end task
!$omp end task
!$omp end parallel
!$omp atomic read
e = err
2018-12-28 15:30:48 +00:00
if (e .ne. 0) STOP 1
2012-03-27 23:13:14 +00:00
end