1! { dg-do run } 2 3 integer :: i, j, k 4 !$omp parallel do lastprivate (i, j, k) collapse (3) 5 do i = 0, 17 6 do j = 0, 6 7 do k = 0, 5 8 end do 9 end do 10 end do 11 if (i .ne. 18 .or. j .ne. 7 .or. k .ne. 6) call abort 12end 13