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) stop 1
12end
13