1! Invalid use of OpenACC parallelism dimensions clauses: 'num_gangs',
2! 'num_workers', 'vector_length'.
3
4! See also '../../c-c++-common/goacc/parallel-dims-2.c'.
5
6subroutine f()
7  !TODO 'kernels', 'parallel' testing per '../../c-c++-common/goacc/parallel-dims-2.c'.
8  !TODO This should incorporate some of the testing done in 'sie.f95'.
9
10
11  ! The 'serial' construct doesn't allow these at all.
12
13!$acc serial num_gangs (1)  ! { dg-error "Failed to match clause at" }
14!$acc end serial  ! { dg-error "Unexpected !.ACC END SERIAL statement" }
15
16!$acc serial num_workers (1)  ! { dg-error "Failed to match clause at" }
17!$acc end serial  ! { dg-error "Unexpected !.ACC END SERIAL statement" }
18
19!$acc serial vector_length (1)  ! { dg-error "Failed to match clause at" }
20!$acc end serial  ! { dg-error "Unexpected !.ACC END SERIAL statement" }
21
22end subroutine f
23