flang/test/Lower/OpenMP/taskgroup.f90

   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
  10 subroutine 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
  21 end subroutine