1! REQUIRES: openmp_runtime 2 3!RUN: %flang_fc1 -emit-hlfir %openmp_flags %s -o - | FileCheck %s 4 5! The "allocate" clause has been removed, because it needs to be used 6! 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_taskgroup 10subroutine omp_taskgroup 11!CHECK: omp.taskgroup 12!$omp taskgroup 13!CHECK: omp.task 14!$omp task 15!CHECK: fir.call @_QPwork() {{.*}}: () -> () 16 call work() 17!CHECK: omp.terminator 18!$omp end task 19!CHECK: omp.terminator 20!$omp end taskgroup 21end subroutine 22