blob: b33baff7f687d9e61554ebbe6f228f56b45eafb7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { dg-do run }
! Test the detach clause when the task is undeferred.
program task_detach_11
use omp_lib
integer (kind=omp_event_handle_kind) :: detach_event
!$omp task detach (detach_event)
call omp_fulfill_event (detach_event)
!$omp end task
end program
|
