| ! RUN: %not_todo_cmd %flang_fc1 -emit-fir -fopenmp -fopenmp-version=51 -o - %s 2>&1 | FileCheck %s | |
| ! CHECK: not yet implemented: OpenMPDispatchConstruct | |
| program p | |
| integer r | |
| r = 1 | |
| !$omp dispatch nowait | |
| call foo() | |
| contains | |
| subroutine foo | |
| end subroutine | |
| end program p |