21 lines · plain
1! RUN: %python %S/../test_errors.py %s %flang -fopenmp -fopenmp-version=522 3subroutine sb14 integer :: r5 r = 16 !$omp dispatch nowait7!ERROR: The body of the DISPATCH construct should be a function or a subroutine call8 print *,r9end subroutine10 11subroutine sb212!ERROR: The DISPATCH construct should contain a single function or subroutine call13 !$omp dispatch14 !$omp end dispatch15end subroutine16 17subroutine sb318!ERROR: The DISPATCH construct should contain a single function or subroutine call19 !$omp dispatch20end subroutine21