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