1! PR fortran/46753
2! { dg-do run }
3
4  integer :: i, j
5  j = 0
6!$omp parallel do reduction(+:j)
7  do i = 2147483636, 2147483646
8    j = j + 1
9  end do
10  if (j.ne.11) STOP 1
11  j = 0
12!$omp parallel do reduction(+:j)
13  do i = -2147483637, -2147483647, -1
14    j = j + 1
15  end do
16  if (j.ne.11) STOP 2
17end
18