22 lines · plain
1! REQUIRES: openmp_runtime2 3!RUN: %flang_fc1 -emit-hlfir %openmp_flags %s -o - | FileCheck %s4 5! The "allocate" clause has been removed, because it needs to be used6! together with a privatizing clause. The only such clause for "taskgroup"7! is "task_reduction", but it's not yet supported.8 9!CHECK-LABEL: @_QPomp_taskgroup10subroutine omp_taskgroup11!CHECK: omp.taskgroup12!$omp taskgroup13!CHECK: omp.task14!$omp task15!CHECK: fir.call @_QPwork() {{.*}}: () -> ()16 call work()17!CHECK: omp.terminator18!$omp end task19!CHECK: omp.terminator20!$omp end taskgroup21end subroutine22