blob: 86e408f9b80684ac3615b7269c94de297db3c448 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
! { dg-options "-O2 -floop-interchange" }
SUBROUTINE BUG(A,B,X,Y,Z,N)
IMPLICIT NONE
DOUBLE PRECISION A(*),B(*),X(*),Y(*),Z(*)
INTEGER N,J,K
K = 0
DO J = 1,N
K = K+1
X(K) = B(J+N*7)
Y(K) = B(J+N*8)
Z(K) = B(J+N*2) + A(J+N*2)
K = K+1
X(K) = B(J+N*3) + A(J+N*3)
Y(K) = B(J+N*9) + A(J)
Z(K) = B(J+N*15)
K = K+1
X(K) = B(J+N*4) + A(J+N*4)
Y(K) = B(J+N*15)
Z(K) = B(J+N*10) + A(J)
K = K+1
X(K) = B(J+N*11) + A(J+N)
Y(K) = B(J+N*5) + A(J+N*5)
Z(K) = B(J+N*16)
K = K+1
X(K) = B(J+N*16)
Y(K) = B(J+N*6) + A(J+N*6)
Z(K) = B(J+N*12) + A(J+N)
K = K+1
X(K) = B(J+N*13) + A(J+N*2)
Y(K) = B(J+N*17)
Z(K) = B(J+N*7) + A(J+N*7)
ENDDO
RETURN
END
|
