1!RUN: %flang_fc1 -emit-hlfir -fopenmp %s -o - | FileCheck %s 2 3!CHECK-LABEL: @_QPomp_taskyield 4subroutine omp_taskyield 5 !CHECK: omp.taskyield 6 !$omp taskyield 7 !CHECK: fir.call @_QPfoo() {{.*}}: () -> () 8 call foo() 9 !CHECK: omp.taskyield 10 !$omp taskyield 11end subroutine omp_taskyield 12