1! Verify the accuracy of the line number associated with combined constructs.
2! See "../../c-c++-common/goacc/combined-directives-3.c".
3
4subroutine test
5  implicit none
6  integer x, y, z
7
8  !$acc parallel loop seq auto ! { dg-error "'seq' overrides other OpenACC loop specifiers" }
9  do x = 0, 10
10     !$acc loop
11     do y = 0, 10
12     end do
13  end do
14  !$acc end parallel loop
15
16  !$acc parallel loop gang auto ! { dg-error "'auto' conflicts with other OpenACC loop specifiers" }
17  do x = 0, 10
18     !$acc loop worker auto ! { dg-error "'auto' conflicts with other OpenACC loop specifiers" }
19     do y = 0, 10
20        !$acc loop vector
21        do z = 0, 10
22        end do
23     end do
24  end do
25  !$acc end parallel loop
26end subroutine test
27