OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
PR tree-optimization/47265
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
graphite
/
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