| /* { dg-do run } */ | |
| #include <omp.h> | |
| #include <assert.h> | |
| /* 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); | |
| } |