1! PR fortran/77516
2! { dg-do compile }
3
4program pr77516
5   integer :: i, x
6   x = 0
7!$omp simd safelen(0) reduction(+:x)	! { dg-warning "must be positive" }
8   do i = 1, 8
9      x = x + 1
10   end do
11   print *, x
12end
13