1! { dg-do compile }
2! { dg-options "-O3 -ffast-math" }
3      SUBROUTINE TEST(A,B,C)
4      DIMENSION B(3),C(1000,10)
5      DO I = 1,3
6         I3=I*3
7         B(1) = B(1) + (C(K,I3+1)-A)
8         B(3) = B(3) + (C(K,I3+3)-A)
9      ENDDO
10      END
11
12