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