blob: 6aa95beb6968ce91c616b492ba19818a35a26fe5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
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
|
