libgomp/testsuite/libgomp.fortran/pr46753.f90

   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
  17 end