1 ! { dg
-options
"-O2 -floop-nest-optimize" }
3 SUBROUTINE BUG
(A
,B
,X
,Y
,Z
,N
)
5 DOUBLE PRECISION A
(*),B
(*),X
(*),Y
(*),Z
(*)
12 Z
(K
) = B
(J
+N*2
) + A
(J
+N*2
)
14 X
(K
) = B
(J
+N*3
) + A
(J
+N*3
)
15 Y
(K
) = B
(J
+N*9
) + A
(J
)
18 X
(K
) = B
(J
+N*4
) + A
(J
+N*4
)
20 Z
(K
) = B
(J
+N*10
) + A
(J
)
22 X
(K
) = B
(J
+N*11
) + A
(J
+N
)
23 Y
(K
) = B
(J
+N*5
) + A
(J
+N*5
)
27 Y
(K
) = B
(J
+N*6
) + A
(J
+N*6
)
28 Z
(K
) = B
(J
+N*12
) + A
(J
+N
)
30 X
(K
) = B
(J
+N*13
) + A
(J
+N*2
)
32 Z
(K
) = B
(J
+N*7
) + A
(J
+N*7
)