------- Comment #10 from jakub at gcc dot gnu dot org 2009-03-23 08:48 -------
Even more reduced testcase:
C { dg-options "-O2 -ftree-loop-linear" }
SUBROUTINE SUB(A, B, M)
IMPLICIT NONE
DOUBLE PRECISION A(20,20), B(20)
INTEGER*8 I, J, K, M
DO I=1,M
DO J=1,M
A(I,J)=A(I,J)+1
END DO
END DO
DO K=1,20
DO I=1,M
DO J=1,M
B(I)=B(I)+A(I,J)
END DO
END DO
END DO
END SUBROUTINE-- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39516
