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