8035d38daa
This allows the Flang parser to accept the !$OMP DISPATCH and related clauses. Lowering is currently not implemented. Tests for unparse and parse-tree dump is provided, and one for checking that the lowering ends in a "not yet implemented" --------- Co-authored-by: Kiran Chandramohan <kiran.chandramohan@arm.com>
13 lines
276 B
Fortran
13 lines
276 B
Fortran
! 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
|