19 lines · plain
1! REQUIRES: openmp_runtime2! RUN: %flang_fc1 -emit-fir %openmp_flags -fopenmp -fopenmp-version=50 -o - %s | FileCheck %s3 4!===============================================================================5! `detach` clause6!===============================================================================7 8!CHECK: omp.task detach(%[[EVENT_HANDLE:.*]] : !fir.ref<i64>) {9!CHECK: fir.call @_QPfoo() fastmath<contract> : () -> ()10!CHECK: omp.terminator11!CHECK: }12subroutine omp_task_detach()13 use omp_lib14 integer (kind=omp_event_handle_kind) :: event15 !$omp task detach(event)16 call foo()17 !$omp end task18end subroutine omp_task_detach19