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