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