| ! { dg-do run } | |
| ! Test detach clause, where a task fulfills its own completion event. | |
| program task_detach_4 | |
| use omp_lib | |
| integer (kind=omp_event_handle_kind) :: detach_event | |
| integer :: x = 0 | |
| !$omp parallel | |
| !$omp single | |
| !$omp task detach (detach_event) | |
| x = x + 1 | |
| call omp_fulfill_event (detach_event) | |
| !$omp end task | |
| !$omp end single | |
| !$omp end parallel | |
| if (x /= 1) stop 1 | |
| end program |