1! { dg-do run } 2 3! Test the detach clause when the task is undeferred. 4 5program task_detach_11 6 use omp_lib 7 8 integer (kind=omp_event_handle_kind) :: detach_event 9 10 !$omp task detach (detach_event) 11 call omp_fulfill_event (detach_event) 12 !$omp end task 13end program 14