C PR tree-optimization/36922
C { dg-do compile }
C { dg-options "-O2 -ftree-loop-linear" }
      SUBROUTINE PR36922(N,F,Z,C)
      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
      DIMENSION C(23821),Z(0:2*N+1),F(0:2*N)
      I=0
      DO L=0,N
        DO M=0,L
          DO M2=M,L
            I=I+1
            C(I)=F(L+M)*F(L-M)*Z(L-M2)/(F(M2+M)*F(M2-M)*F(L-M2)*F(L-M2))
          ENDDO
        ENDDO
      ENDDO
      END