| !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 |