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  }