1C PR tree-optimization/36922 2C { dg-do compile } 3C { dg-options "-O2 -ftree-loop-linear" } 4 SUBROUTINE PR36922(N,F,Z,C) 5 IMPLICIT DOUBLE PRECISION(A-H,O-Z) 6 DIMENSION C(23821),Z(0:2*N+1),F(0:2*N) 7 I=0 8 DO L=0,N 9 DO M=0,L 10 DO M2=M,L 11 I=I+1 12 C(I)=F(L+M)*F(L-M)*Z(L-M2)/(F(M2+M)*F(M2-M)*F(L-M2)*F(L-M2)) 13 ENDDO 14 ENDDO 15 ENDDO 16 END 17