1! { dg-do run }
2
3program collapse3
4  integer :: a(3,3,3), k, kk, kkk, l, ll, lll
5  !$acc parallel
6  !$acc loop collapse(3)
7    do 115 k=1,3
8dokk: do kk=1,3
9        do kkk=1,3
10          a(k,kk,kkk) = 1
11        enddo
12      enddo dokk
13115   continue
14  !$acc end parallel
15  if (any(a(1:3,1:3,1:3).ne.1)) STOP 1
16
17  !$acc parallel
18  !$acc loop collapse(3)
19dol: do 120 l=1,3
20doll: do ll=1,3
21        do lll=1,3
22          a(l,ll,lll) = 2
23        enddo
24      enddo doll
25120 end do dol
26  !$acc end parallel
27  if (any(a(1:3,1:3,1:3).ne.2)) STOP 2
28end program collapse3
29