gcc/testsuite/gfortran.dg/gomp/pr85313.f90

! PR fortran/85313
! { dg-do compile }

!$omp do collapse(3)
  do i = 1, 10
    do j = i, 20	! { dg-error "form rectangular iteration space" }
      do k = 1, 2
      end do
    end do
  end do
!$omp do collapse(3)
  do i = 1, 10
    do j = 1, 5
      do k = i, 20	! { dg-error "form rectangular iteration space" }
      end do
    end do
  end do
!$omp do collapse(3)
  do i = 1, 10
    do j = 1, 5
      do k = j, 20	! { dg-error "form rectangular iteration space" }
      end do
    end do
  end do
end