flang/test/Semantics/OpenACC/bug135810-2.f90

! RUN: %python %S/../test_errors.py %s %flang -fopenacc
integer function square(x)
    implicit none
    integer, intent(in) :: x
!ERROR: logical expression or object list expected
    !$acc parallel self(,)
    !$acc end parallel
!ERROR: logical expression or object list expected
    !$acc parallel self(.true., )
    !$acc end parallel
    square = x * x
end function square