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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [gomp/] [reduction2.f90] - Blame information for rev 774

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

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
 
3
subroutine 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
12
end subroutine f1
13
subroutine f2
14
  integer :: i
15
  i = ior (2, 4)
16
!$omp parallel reduction (ior:i)
17
  i = ior (i, 3)
18
!$omp end parallel
19
end subroutine f2
20
subroutine f3
21
  integer :: i
22
  i = 6
23
!$omp parallel reduction (ior:i)
24
  i = ior (i, 3)
25
!$omp end parallel
26
end subroutine f3
27
subroutine f4
28
  integer :: i, ior
29
  i = 6
30
!$omp parallel reduction (ior:i)
31
  i = ior (i, 3)
32
!$omp end parallel
33
end subroutine f4

powered by: WebSVN 2.1.0

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