1! Ensure that loops not affiliated with acc compute regions cause an error.
2
3subroutine test1
4    !$acc loop gang ! { dg-error "loop directive must be associated with an OpenACC compute region" }
5  DO i = 1,10
6  ENDDO
7end subroutine test1
8