21 lines
440 B
Fortran
21 lines
440 B
Fortran
C PR tree-optimization/39516
|
|
C { dg-do compile }
|
|
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
|