Skip gnat.dg/prot7.adb on hppa.
[official-gcc.git] / libgomp / testsuite / libgomp.c-c++-common / task-detach-2.c
blob3e33c409fe80d6417d6db4f574155de0cc89eded
1 /* { dg-do run } */
3 #include <omp.h>
4 #include <assert.h>
6 /* Test handling of detach clause with only a single thread. The runtime
7 should not block when a task with an unfulfilled event finishes
8 running. */
10 int main (void)
12 omp_event_handle_t detach_event1, detach_event2;
13 int x = 0, y = 0, z = 0;
15 #pragma omp parallel num_threads (1)
16 #pragma omp single
18 #pragma omp task detach (detach_event1)
19 x++;
21 #pragma omp task detach (detach_event2)
23 y++;
24 omp_fulfill_event (detach_event1);
27 #pragma omp task
29 z++;
30 omp_fulfill_event (detach_event2);
34 assert (x == 1);
35 assert (y == 1);
36 assert (z == 1);