1! { dg-do run }
2
3! Test detach clause, where a task fulfills its own completion event.
4
5program task_detach_4
6
7  use omp_lib
8
9  integer (kind=omp_event_handle_kind) :: detach_event
10  integer :: x = 0
11
12  !$omp parallel
13    !$omp single
14      !$omp task detach (detach_event)
15        x = x + 1
16	call omp_fulfill_event (detach_event)
17      !$omp end task
18    !$omp end single
19  !$omp end parallel
20
21  if (x /= 1) stop 1
22end program
23