17 lines
416 B
Fortran
17 lines
416 B
Fortran
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
|