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