summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/graphite/id-19.f
blob: e05f764b294a87480d8cd7dec4b103229c958a7a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
      SUBROUTINE ECCODR(FPQR)
      DIMENSION FPQR(25,25,25)
      INTEGER P,Q,R
      DIMENSION REC(73)
      DO 150 P=1,N4MAX,2
         QM2=-ONE
         DO 140 Q=1,N4MAX,2
            DO 130 R=1,N4MAX,2
               IF(P.GT.1) THEN
                  FPQR(P,Q,R)= QM2*FPQR(P,Q-2,R)*REC(P+Q-2+R)
               END IF
  130       RM2= RM2+TWO
  140    QM2= QM2+TWO
  150 PM2= PM2+TWO
      END