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