/* { dg-do run } */ #include #include /* Test detach clause, where a task fulfills its own completion event. */ int main (void) { omp_event_handle_t detach_event; int x = 0; detach_event = (omp_event_handle_t) 0x123456789abcdef0; #pragma omp parallel #pragma omp single #pragma omp task detach (detach_event) { x++; omp_fulfill_event (detach_event); } assert (x == 1); }