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