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

Subversion Repositories openrisc

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

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

Line No. Rev Author Line
1 273 jeremybenn 
! { dg-do run }
2 
 
3 
  call test
4 
contains
5 
  subroutine check (x, y, l)
6 
    integer :: x, y
7 
    logical :: l
8 
    l = l .or. x .ne. y
9 
  end subroutine check
10 
 
11 
  subroutine foo (c, d, e, f, g, h, i, j, k, n)
12 
    use omp_lib
13 
    integer :: n
14 
    character (len = *) :: c
15 
    character (len = n) :: d
16 
    integer, dimension (2, 3:5, n) :: e
17 
    integer, dimension (2, 3:n, n) :: f
18 
    character (len = *), dimension (5, 3:n) :: g
19 
    character (len = n), dimension (5, 3:n) :: h
20 
    real, dimension (:, :, :) :: i
21 
    double precision, dimension (3:, 5:, 7:) :: j
22 
    integer, dimension (:, :, :) :: k
23 
    logical :: l
24 
    integer :: p, q, r
25 
    character (len = n) :: s
26 
    integer, dimension (2, 3:5, n) :: t
27 
    integer, dimension (2, 3:n, n) :: u
28 
    character (len = n), dimension (5, 3:n) :: v
29 
    character (len = 2 * n + 24) :: w
30 
    integer :: x, z
31 
    character (len = 1) :: y
32 
    l = .false.
33 
!$omp parallel default (none) private (c, d, e, f, g, h, i, j, k) &
34 
!$omp & private (s, t, u, v) reduction (.or.:l) num_threads (6) &
35 
!$omp private (p, q, r, w, x, y) shared (z)
36 
    x = omp_get_thread_num ()
37 
    w = ''
38 
    if (x .eq. 0) w = 'thread0thr_number_0THREAD0THR_NUMBER_0'
39 
    if (x .eq. 1) w = 'thread1thr_number_1THREAD1THR_NUMBER_1'
40 
    if (x .eq. 2) w = 'thread2thr_number_2THREAD2THR_NUMBER_2'
41 
    if (x .eq. 3) w = 'thread3thr_number_3THREAD3THR_NUMBER_3'
42 
    if (x .eq. 4) w = 'thread4thr_number_4THREAD4THR_NUMBER_4'
43 
    if (x .eq. 5) w = 'thread5thr_number_5THREAD5THR_NUMBER_5'
44 
    c = w(8:19)
45 
    d = w(1:7)
46 
    forall (p = 1:2, q = 3:5, r = 1:7) e(p, q, r) = 5 * x + p + q + 2 * r
47 
    forall (p = 1:2, q = 3:7, r = 1:7) f(p, q, r) = 25 * x + p + q + 2 * r
48 
    forall (p = 1:5, q = 3:7, p + q .le. 8) g(p, q) = w(8:19)
49 
    forall (p = 1:5, q = 3:7, p + q .gt. 8) g(p, q) = w(27:38)
50 
    forall (p = 1:5, q = 3:7, p + q .le. 8) h(p, q) = w(1:7)
51 
    forall (p = 1:5, q = 3:7, p + q .gt. 8) h(p, q) = w(20:26)
52 
    forall (p = 3:5, q = 2:6, r = 1:7) i(p - 2, q - 1, r) = (7.5 + x) * p * q * r
53 
    forall (p = 3:5, q = 2:6, r = 1:7) j(p, q + 3, r + 6) = (9.5 + x) * p * q * r
54 
    forall (p = 1:5, q = 7:7, r = 4:6) k(p, q - 6, r - 3) = 19 + x + p + q + 3 * r
55 
    s = w(20:26)
56 
    forall (p = 1:2, q = 3:5, r = 1:7) t(p, q, r) = -10 + x + p - q + 2 * r
57 
    forall (p = 1:2, q = 3:7, r = 1:7) u(p, q, r) = 30 - x - p + q - 2 * r
58 
    forall (p = 1:5, q = 3:7, p + q .le. 8) v(p, q) = w(1:7)
59 
    forall (p = 1:5, q = 3:7, p + q .gt. 8) v(p, q) = w(20:26)
60 
!$omp barrier
61 
    y = ''
62 
    if (x .eq. 0) y = '0'
63 
    if (x .eq. 1) y = '1'
64 
    if (x .eq. 2) y = '2'
65 
    if (x .eq. 3) y = '3'
66 
    if (x .eq. 4) y = '4'
67 
    if (x .eq. 5) y = '5'
68 
    l = l .or. w(7:7) .ne. y
69 
    l = l .or. w(19:19) .ne. y
70 
    l = l .or. w(26:26) .ne. y
71 
    l = l .or. w(38:38) .ne. y
72 
    l = l .or. c .ne. w(8:19)
73 
    l = l .or. d .ne. w(1:7)
74 
    l = l .or. s .ne. w(20:26)
75 
    do 103, p = 1, 2
76 
      do 103, q = 3, 7
77 
        do 103, r = 1, 7
78 
          if (q .lt. 6) l = l .or. e(p, q, r) .ne. 5 * x + p + q + 2 * r
79 
          l = l .or. f(p, q, r) .ne. 25 * x + p + q + 2 * r
80 
          if (r .lt. 6 .and. q + r .le. 8) l = l .or. g(r, q) .ne. w(8:19)
81 
          if (r .lt. 6 .and. q + r .gt. 8) l = l .or. g(r, q) .ne. w(27:38)
82 
          if (r .lt. 6 .and. q + r .le. 8) l = l .or. h(r, q) .ne. w(1:7)
83 
          if (r .lt. 6 .and. q + r .gt. 8) l = l .or. h(r, q) .ne. w(20:26)
84 
          if (q .lt. 6) l = l .or. t(p, q, r) .ne. -10 + x + p - q + 2 * r
85 
          l = l .or. u(p, q, r) .ne. 30 - x - p + q - 2 * r
86 
          if (r .lt. 6 .and. q + r .le. 8) l = l .or. v(r, q) .ne. w(1:7)
87 
          if (r .lt. 6 .and. q + r .gt. 8) l = l .or. v(r, q) .ne. w(20:26)
88 
103 continue
89 
    do 104, p = 3, 5
90 
      do 104, q = 2, 6
91 
        do 104, r = 1, 7
92 
          l = l .or. i(p - 2, q - 1, r) .ne. (7.5 + x) * p * q * r
93 
          l = l .or. j(p, q + 3, r + 6) .ne. (9.5 + x) * p * q * r
94 
104 continue
95 
    do 105, p = 1, 5
96 
      do 105, q = 4, 6
97 
        l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q
98 
105 continue
99 
    call check (size (e, 1), 2, l)
100 
    call check (size (e, 2), 3, l)
101 
    call check (size (e, 3), 7, l)
102 
    call check (size (e), 42, l)
103 
    call check (size (f, 1), 2, l)
104 
    call check (size (f, 2), 5, l)
105 
    call check (size (f, 3), 7, l)
106 
    call check (size (f), 70, l)
107 
    call check (size (g, 1), 5, l)
108 
    call check (size (g, 2), 5, l)
109 
    call check (size (g), 25, l)
110 
    call check (size (h, 1), 5, l)
111 
    call check (size (h, 2), 5, l)
112 
    call check (size (h), 25, l)
113 
    call check (size (i, 1), 3, l)
114 
    call check (size (i, 2), 5, l)
115 
    call check (size (i, 3), 7, l)
116 
    call check (size (i), 105, l)
117 
    call check (size (j, 1), 4, l)
118 
    call check (size (j, 2), 5, l)
119 
    call check (size (j, 3), 7, l)
120 
    call check (size (j), 140, l)
121 
    call check (size (k, 1), 5, l)
122 
    call check (size (k, 2), 1, l)
123 
    call check (size (k, 3), 3, l)
124 
    call check (size (k), 15, l)
125 
!$omp single
126 
    z = omp_get_thread_num ()
127 
!$omp end single copyprivate (c, d, e, f, g, h, i, j, k, s, t, u, v)
128 
    w = ''
129 
    x = z
130 
    if (x .eq. 0) w = 'thread0thr_number_0THREAD0THR_NUMBER_0'
131 
    if (x .eq. 1) w = 'thread1thr_number_1THREAD1THR_NUMBER_1'
132 
    if (x .eq. 2) w = 'thread2thr_number_2THREAD2THR_NUMBER_2'
133 
    if (x .eq. 3) w = 'thread3thr_number_3THREAD3THR_NUMBER_3'
134 
    if (x .eq. 4) w = 'thread4thr_number_4THREAD4THR_NUMBER_4'
135 
    if (x .eq. 5) w = 'thread5thr_number_5THREAD5THR_NUMBER_5'
136 
    y = ''
137 
    if (x .eq. 0) y = '0'
138 
    if (x .eq. 1) y = '1'
139 
    if (x .eq. 2) y = '2'
140 
    if (x .eq. 3) y = '3'
141 
    if (x .eq. 4) y = '4'
142 
    if (x .eq. 5) y = '5'
143 
    l = l .or. w(7:7) .ne. y
144 
    l = l .or. w(19:19) .ne. y
145 
    l = l .or. w(26:26) .ne. y
146 
    l = l .or. w(38:38) .ne. y
147 
    l = l .or. c .ne. w(8:19)
148 
    l = l .or. d .ne. w(1:7)
149 
    l = l .or. s .ne. w(20:26)
150 
    do 113, p = 1, 2
151 
      do 113, q = 3, 7
152 
        do 113, r = 1, 7
153 
          if (q .lt. 6) l = l .or. e(p, q, r) .ne. 5 * x + p + q + 2 * r
154 
          l = l .or. f(p, q, r) .ne. 25 * x + p + q + 2 * r
155 
          if (r .lt. 6 .and. q + r .le. 8) l = l .or. g(r, q) .ne. w(8:19)
156 
          if (r .lt. 6 .and. q + r .gt. 8) l = l .or. g(r, q) .ne. w(27:38)
157 
          if (r .lt. 6 .and. q + r .le. 8) l = l .or. h(r, q) .ne. w(1:7)
158 
          if (r .lt. 6 .and. q + r .gt. 8) l = l .or. h(r, q) .ne. w(20:26)
159 
          if (q .lt. 6) l = l .or. t(p, q, r) .ne. -10 + x + p - q + 2 * r
160 
          l = l .or. u(p, q, r) .ne. 30 - x - p + q - 2 * r
161 
          if (r .lt. 6 .and. q + r .le. 8) l = l .or. v(r, q) .ne. w(1:7)
162 
          if (r .lt. 6 .and. q + r .gt. 8) l = l .or. v(r, q) .ne. w(20:26)
163 
113 continue
164 
    do 114, p = 3, 5
165 
      do 114, q = 2, 6
166 
        do 114, r = 1, 7
167 
          l = l .or. i(p - 2, q - 1, r) .ne. (7.5 + x) * p * q * r
168 
          l = l .or. j(p, q + 3, r + 6) .ne. (9.5 + x) * p * q * r
169 
114 continue
170 
    do 115, p = 1, 5
171 
      do 115, q = 4, 6
172 
        l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q
173 
115 continue
174 
    x = omp_get_thread_num ()
175 
    w = ''
176 
    if (x .eq. 0) w = 'thread0thr_number_0THREAD0THR_NUMBER_0'
177 
    if (x .eq. 1) w = 'thread1thr_number_1THREAD1THR_NUMBER_1'
178 
    if (x .eq. 2) w = 'thread2thr_number_2THREAD2THR_NUMBER_2'
179 
    if (x .eq. 3) w = 'thread3thr_number_3THREAD3THR_NUMBER_3'
180 
    if (x .eq. 4) w = 'thread4thr_number_4THREAD4THR_NUMBER_4'
181 
    if (x .eq. 5) w = 'thread5thr_number_5THREAD5THR_NUMBER_5'
182 
    c = w(8:19)
183 
    d = w(1:7)
184 
    forall (p = 1:2, q = 3:5, r = 1:7) e(p, q, r) = 5 * x + p + q + 2 * r
185 
    forall (p = 1:2, q = 3:7, r = 1:7) f(p, q, r) = 25 * x + p + q + 2 * r
186 
    forall (p = 1:5, q = 3:7, p + q .le. 8) g(p, q) = w(8:19)
187 
    forall (p = 1:5, q = 3:7, p + q .gt. 8) g(p, q) = w(27:38)
188 
    forall (p = 1:5, q = 3:7, p + q .le. 8) h(p, q) = w(1:7)
189 
    forall (p = 1:5, q = 3:7, p + q .gt. 8) h(p, q) = w(20:26)
190 
    forall (p = 3:5, q = 2:6, r = 1:7) i(p - 2, q - 1, r) = (7.5 + x) * p * q * r
191 
    forall (p = 3:5, q = 2:6, r = 1:7) j(p, q + 3, r + 6) = (9.5 + x) * p * q * r
192 
    forall (p = 1:5, q = 7:7, r = 4:6) k(p, q - 6, r - 3) = 19 + x + p + q + 3 * r
193 
    s = w(20:26)
194 
    forall (p = 1:2, q = 3:5, r = 1:7) t(p, q, r) = -10 + x + p - q + 2 * r
195 
    forall (p = 1:2, q = 3:7, r = 1:7) u(p, q, r) = 30 - x - p + q - 2 * r
196 
    forall (p = 1:5, q = 3:7, p + q .le. 8) v(p, q) = w(1:7)
197 
    forall (p = 1:5, q = 3:7, p + q .gt. 8) v(p, q) = w(20:26)
198 
!$omp barrier
199 
    y = ''
200 
    if (x .eq. 0) y = '0'
201 
    if (x .eq. 1) y = '1'
202 
    if (x .eq. 2) y = '2'
203 
    if (x .eq. 3) y = '3'
204 
    if (x .eq. 4) y = '4'
205 
    if (x .eq. 5) y = '5'
206 
    l = l .or. w(7:7) .ne. y
207 
    l = l .or. w(19:19) .ne. y
208 
    l = l .or. w(26:26) .ne. y
209 
    l = l .or. w(38:38) .ne. y
210 
    l = l .or. c .ne. w(8:19)
211 
    l = l .or. d .ne. w(1:7)
212 
    l = l .or. s .ne. w(20:26)
213 
    do 123, p = 1, 2
214 
      do 123, q = 3, 7
215 
        do 123, r = 1, 7
216 
          if (q .lt. 6) l = l .or. e(p, q, r) .ne. 5 * x + p + q + 2 * r
217 
          l = l .or. f(p, q, r) .ne. 25 * x + p + q + 2 * r
218 
          if (r .lt. 6 .and. q + r .le. 8) l = l .or. g(r, q) .ne. w(8:19)
219 
          if (r .lt. 6 .and. q + r .gt. 8) l = l .or. g(r, q) .ne. w(27:38)
220 
          if (r .lt. 6 .and. q + r .le. 8) l = l .or. h(r, q) .ne. w(1:7)
221 
          if (r .lt. 6 .and. q + r .gt. 8) l = l .or. h(r, q) .ne. w(20:26)
222 
          if (q .lt. 6) l = l .or. t(p, q, r) .ne. -10 + x + p - q + 2 * r
223 
          l = l .or. u(p, q, r) .ne. 30 - x - p + q - 2 * r
224 
          if (r .lt. 6 .and. q + r .le. 8) l = l .or. v(r, q) .ne. w(1:7)
225 
          if (r .lt. 6 .and. q + r .gt. 8) l = l .or. v(r, q) .ne. w(20:26)
226 
123 continue
227 
    do 124, p = 3, 5
228 
      do 124, q = 2, 6
229 
        do 124, r = 1, 7
230 
          l = l .or. i(p - 2, q - 1, r) .ne. (7.5 + x) * p * q * r
231 
          l = l .or. j(p, q + 3, r + 6) .ne. (9.5 + x) * p * q * r
232 
124 continue
233 
    do 125, p = 1, 5
234 
      do 125, q = 4, 6
235 
        l = l .or. k(p, 1, q - 3) .ne. 19 + x + p + 7 + 3 * q
236 
125 continue
237 
!$omp end parallel
238 
    if (l) call abort
239 
  end subroutine foo
240 
 
241 
  subroutine test
242 
    character (len = 12) :: c
243 
    character (len = 7) :: d
244 
    integer, dimension (2, 3:5, 7) :: e
245 
    integer, dimension (2, 3:7, 7) :: f
246 
    character (len = 12), dimension (5, 3:7) :: g
247 
    character (len = 7), dimension (5, 3:7) :: h
248 
    real, dimension (3:5, 2:6, 1:7) :: i
249 
    double precision, dimension (3:6, 2:6, 1:7) :: j
250 
    integer, dimension (1:5, 7:7, 4:6) :: k
251 
    integer :: p, q, r
252 
    call foo (c, d, e, f, g, h, i, j, k, 7)
253 
  end subroutine test
254 
end

powered by: WebSVN 2.1.0

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