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