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