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