| 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 |