! { dg-do run }

program collapse5
  implicit none

  integer :: i, j
  integer :: count = 0

  !$omp parallel do collapse (2)
    do i = 1, 80000
      do j = 1, 80000
        if (i .eq. 66666 .and. j .eq. 77777) then
	  ! In the collapsed loop space, this is iteration
	  ! 66666*80000+77777==5,333,357,777.  If the type of the iterator
	  ! for the collapsed loop is only a 32-bit unsigned int, then this
	  ! iteration will exceed its maximum range and be skipped.
	  count = count + 1
	end if
      end do
    end do

  if (count .ne. 1) stop 1
end