[flang] [OpenMP] "!$omp dispatch"

The following code containing "!$omp dispatch" is not accepted in flang.

```fortran
subroutine test1(a, b, n)
integer :: n
real :: a(n), b(n)

!$omp dispatch
a = sin(b) ! OK
!$omp end dispatch

end subroutine
```