gcc/testsuite/gfortran.dg/pr36922.f

   1 C PR tree-optimization/36922
   2 C { dg-do compile }
   3 C { 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