1! { dg-do compile }
2
3subroutine f1
4  integer :: i
5  i = 0
6!$omp parallel reduction (ior:i)
7  i = ior (i, 3)
8!$omp end parallel
9!$omp parallel reduction (ior:i)
10  i = ior (i, 16)
11!$omp end parallel
12end subroutine f1
13subroutine f2
14  integer :: i
15  i = ior (2, 4)
16!$omp parallel reduction (ior:i)
17  i = ior (i, 3)
18!$omp end parallel
19end subroutine f2
20subroutine f3
21  integer :: i
22  i = 6
23!$omp parallel reduction (ior:i)
24  i = ior (i, 3)
25!$omp end parallel
26end subroutine f3
27subroutine f4
28  integer :: i, ior
29  i = 6
30!$omp parallel reduction (ior:i)
31  i = ior (i, 3)
32!$omp end parallel
33end subroutine f4
34