4 integer, parameter :: N
= 64
5 real, allocatable
:: a(:), b(:)
14 !$acc wait (1 2) ! { dg-error "Syntax error in OpenACC expression list at" }
16 !$acc wait (1,) ! { dg-error "Syntax error in OpenACC expression list at" }
18 !$acc wait (,1) ! { dg-error "Syntax error in OpenACC expression list at" }
20 !$acc wait (1, 2, ) ! { dg-error "Syntax error in OpenACC expression list at" }
22 !$acc wait (1, 2, ,) ! { dg-error "Syntax error in OpenACC expression list at" }
24 !$acc wait (1 ! { dg-error "Syntax error in OpenACC expression list at" }
26 !$acc wait (1, *) ! { dg-error "Invalid argument to \\\!\\\$ACC WAIT" }
28 !$acc wait (1, a) ! { dg-error "WAIT clause at \\\(1\\\) requires a scalar INTEGER expression" }
30 !$acc wait (a) ! { dg-error "WAIT clause at \\\(1\\\) requires a scalar INTEGER expression" }
34 !$acc wait (1.0) ! { dg-error "WAIT clause at \\\(1\\\) requires a scalar INTEGER expression" }
36 !$acc wait 1 ! { dg-error "Failed to match clause" }
38 !$acc wait N ! { dg-error "Failed to match clause" }