1! { dg-do compile }
2
3program test
4  implicit none
5
6  integer :: i
7  real :: x
8
9  !$acc parallel &
10  !$acc loop & ! continuation
11  !$acc & reduction(+:x)
12
13  ! this line must be ignored
14  !$acc ! kernels
15  do i = 1,10
16    x = x + 0.3
17  enddo
18  ! continuation must begin with sentinel
19  !$acc end parallel & ! { dg-error "Unexpected junk" }
20  ! loop
21
22  print *, x
23end
24