de18f5ecf8
Remove the `allocate`, 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.
20 lines
538 B
Fortran
20 lines
538 B
Fortran
!RUN: %flang_fc1 -emit-hlfir -fopenmp %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
|