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) call abort 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) call abort 17end 18