!RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s
!CHECK-LABEL: @_QPomp_taskyield
subroutine omp_taskyield
!CHECK: omp.taskyield
!$omp taskyield
!CHECK: fir.call @_QPfoo() {{.*}}: () -> ()
call foo()
!CHECK: omp.taskyield
!$omp taskyield
end subroutine omp_taskyield