| ! REQUIRES: openmp_runtime |
| |
| !RUN: %flang_fc1 -emit-hlfir %openmp_flags %s -o - | FileCheck %s |
| |
| ! The "allocate" clause has been removed, because it needs to be used |
| ! together with a privatizing clause. The only such clause for "taskgroup" |
| ! is "task_reduction", but it's not yet supported. |
| |
| !CHECK-LABEL: @_QPomp_taskgroup |
| subroutine omp_taskgroup |
| !CHECK: omp.taskgroup |
| !$omp taskgroup |
| !CHECK: omp.task |
| !$omp task |
| !CHECK: fir.call @_QPwork() {{.*}}: () -> () |
| call work() |
| !CHECK: omp.terminator |
| !$omp end task |
| !CHECK: omp.terminator |
| !$omp end taskgroup |
| end subroutine |