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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [libgomp/] [testsuite/] [libgomp.fortran/] [lastprivate1.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 
program lastprivate
2 
  integer :: i
3 
  common /c/ i
4 
  !$omp parallel num_threads (4)
5 
  call test1
6 
  !$omp end parallel
7 
  if (i .ne. 21) call abort
8 
  !$omp parallel num_threads (4)
9 
  call test2
10 
  !$omp end parallel
11 
  if (i .ne. 64) call abort
12 
  !$omp parallel num_threads (4)
13 
  call test3
14 
  !$omp end parallel
15 
  if (i .ne. 14) call abort
16 
  call test4
17 
  call test5
18 
  call test6
19 
  call test7
20 
  call test8
21 
  call test9
22 
  call test10
23 
  call test11
24 
  call test12
25 
contains
26 
  subroutine test1
27 
    integer :: i
28 
    common /c/ i
29 
    !$omp do lastprivate (i)
30 
    do i = 1, 20
31 
    end do
32 
  end subroutine test1
33 
  subroutine test2
34 
    integer :: i
35 
    common /c/ i
36 
    !$omp do lastprivate (i)
37 
    do i = 7, 61, 3
38 
    end do
39 
  end subroutine test2
40 
  function ret3 ()
41 
    integer :: ret3
42 
    ret3 = 3
43 
  end function ret3
44 
  subroutine test3
45 
    integer :: i
46 
    common /c/ i
47 
    !$omp do lastprivate (i)
48 
    do i = -10, 11, ret3 ()
49 
    end do
50 
  end subroutine test3
51 
  subroutine test4
52 
    integer :: j
53 
    !$omp parallel do lastprivate (j) num_threads (4) default (none)
54 
    do j = 1, 20
55 
    end do
56 
    if (j .ne. 21) call abort
57 
  end subroutine test4
58 
  subroutine test5
59 
    integer :: j
60 
    !$omp parallel do lastprivate (j) num_threads (4) default (none)
61 
    do j = 7, 61, 3
62 
    end do
63 
    if (j .ne. 64) call abort
64 
  end subroutine test5
65 
  subroutine test6
66 
    integer :: j
67 
    !$omp parallel do lastprivate (j) num_threads (4) default (none)
68 
    do j = -10, 11, ret3 ()
69 
    end do
70 
    if (j .ne. 14) call abort
71 
  end subroutine test6
72 
  subroutine test7
73 
    integer :: i
74 
    common /c/ i
75 
    !$omp parallel do lastprivate (i) num_threads (4) default (none)
76 
    do i = 1, 20
77 
    end do
78 
    if (i .ne. 21) call abort
79 
  end subroutine test7
80 
  subroutine test8
81 
    integer :: i
82 
    common /c/ i
83 
    !$omp parallel do lastprivate (i) num_threads (4) default (none)
84 
    do i = 7, 61, 3
85 
    end do
86 
    if (i .ne. 64) call abort
87 
  end subroutine test8
88 
  subroutine test9
89 
    integer :: i
90 
    common /c/ i
91 
    !$omp parallel do lastprivate (i) num_threads (4) default (none)
92 
    do i = -10, 11, ret3 ()
93 
    end do
94 
    if (i .ne. 14) call abort
95 
  end subroutine test9
96 
  subroutine test10
97 
    integer :: i
98 
    common /c/ i
99 
    !$omp parallel num_threads (4) default (none) shared (i)
100 
    !$omp do lastprivate (i)
101 
    do i = 1, 20
102 
    end do
103 
    !$omp end parallel
104 
    if (i .ne. 21) call abort
105 
  end subroutine test10
106 
  subroutine test11
107 
    integer :: i
108 
    common /c/ i
109 
    !$omp parallel num_threads (4) default (none) shared (i)
110 
    !$omp do lastprivate (i)
111 
    do i = 7, 61, 3
112 
    end do
113 
    !$omp end parallel
114 
    if (i .ne. 64) call abort
115 
  end subroutine test11
116 
  subroutine test12
117 
    integer :: i
118 
    common /c/ i
119 
    !$omp parallel num_threads (4) default (none) shared (i)
120 
    !$omp do lastprivate (i)
121 
    do i = -10, 11, ret3 ()
122 
    end do
123 
    !$omp end parallel
124 
    if (i .ne. 14) call abort
125 
  end subroutine test12
126 
end program lastprivate

powered by: WebSVN 2.1.0

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