1! { dg-do compile }
2
3!
4! PR fortran/64726
5!
6subroutine oacc1()
7  implicit none
8  integer :: i
9  integer  :: a
10  !$acc parallel loop reduction(+:a)
11  do i = 1,5
12  enddo
13  !$acc end parallel loop
14  !$acc kernels loop collapse(2)
15  do i = 2,6
16     do a = 3,5
17     enddo
18  enddo
19  !$acc end kernels loop
20end subroutine oacc1
21