OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.fortran/] [reduction5.f90] - Blame information for rev 856

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 273 jeremybenn
! { dg-do run }
2
 
3
module reduction5
4
  intrinsic ior, min, max
5
end module reduction5
6
 
7
  call test1
8
  call test2
9
contains
10
  subroutine test1
11
    use reduction5, bitwise_or => ior
12
    integer :: n
13
    n = Z'f'
14
!$omp parallel sections num_threads (3) reduction (bitwise_or: n)
15
    n = ior (n, Z'20')
16
!$omp section
17
    n = bitwise_or (Z'410', n)
18
!$omp section
19
    n = bitwise_or (n, Z'2000')
20
!$omp end parallel sections
21
    if (n .ne. Z'243f') call abort
22
  end subroutine
23
  subroutine test2
24
    use reduction5, min => max, max => min
25
    integer :: m, n
26
    m = 8
27
    n = 4
28
!$omp parallel sections num_threads (3) reduction (min: n) &
29
!$omp & reduction (max: m)
30
    if (m .gt. 13) m = 13
31
    if (n .lt. 11) n = 11
32
!$omp section
33
    if (m .gt. 5) m = 5
34
    if (n .lt. 15) n = 15
35
!$omp section
36
    if (m .gt. 3) m = 3
37
    if (n .lt. -1) n = -1
38
!$omp end parallel sections
39
    if (m .ne. 3 .or. n .ne. 15) call abort
40
  end subroutine test2
41
end
42
 
43
! { dg-final { cleanup-modules "reduction5" } }

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.