Subversion Repositories openrisc

! { dg-do run }

module reduction5

  intrinsic ior, min, max

end module reduction5

  call test1

  call test2

contains

  subroutine test1

    use reduction5, bitwise_or => ior

    integer :: n

    n = Z'f'

!$omp parallel sections num_threads (3) reduction (bitwise_or: n)

    n = ior (n, Z'20')

!$omp section

    n = bitwise_or (Z'410', n)

!$omp section

    n = bitwise_or (n, Z'2000')

!$omp end parallel sections

    if (n .ne. Z'243f') call abort

  end subroutine

  subroutine test2

    use reduction5, min => max, max => min

    integer :: m, n

    m = 8

    n = 4

!$omp parallel sections num_threads (3) reduction (min: n) &

!$omp & reduction (max: m)

    if (m .gt. 13) m = 13

    if (n .lt. 11) n = 11

!$omp section

    if (m .gt. 5) m = 5

    if (n .lt. 15) n = 15

!$omp section

    if (m .gt. 3) m = 3

    if (n .lt. -1) n = -1

!$omp end parallel sections

    if (m .ne. 3 .or. n .ne. 15) call abort

  end subroutine test2

end