1! PR fortran/85313
2! { dg-do compile }
3
4!$omp do collapse(3)
5  do i = 1, 10
6    do j = i, 20	! { dg-error "form rectangular iteration space" }
7      do k = 1, 2
8      end do
9    end do
10  end do
11!$omp do collapse(3)
12  do i = 1, 10
13    do j = 1, 5
14      do k = i, 20	! { dg-error "form rectangular iteration space" }
15      end do
16    end do
17  end do
18!$omp do collapse(3)
19  do i = 1, 10
20    do j = 1, 5
21      do k = j, 20	! { dg-error "form rectangular iteration space" }
22      end do
23    end do
24  end do
25end
26