145
|
1 /* Verify the accuracy of the line number associated with combined
|
|
2 constructs. */
|
|
3 /* See also "../../gfortran.dg/goacc/combined-directives-3.f90". */
|
|
4
|
|
5 int
|
|
6 main ()
|
|
7 {
|
|
8 int x, y, z;
|
|
9
|
|
10 #pragma acc parallel loop seq auto /* { dg-error "'seq' overrides other OpenACC loop specifiers" } */
|
|
11 for (x = 0; x < 10; x++)
|
|
12 #pragma acc loop
|
|
13 for (y = 0; y < 10; y++)
|
|
14 ;
|
|
15
|
|
16 #pragma acc parallel loop gang auto /* { dg-error "'auto' conflicts with other OpenACC loop specifiers" } */
|
|
17 for (x = 0; x < 10; x++)
|
|
18 #pragma acc loop worker auto /* { dg-error "'auto' conflicts with other OpenACC loop specifiers" } */
|
|
19 for (y = 0; y < 10; y++)
|
|
20 #pragma acc loop vector
|
|
21 for (z = 0; z < 10; z++)
|
|
22 ;
|
|
23
|
|
24 return 0;
|
|
25 }
|