summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/graphite/id-16.f
blob: 323d6c958f076bafb7b5cb90d47e147fd95056ea (plain)
1
2
3
4
5
6
7
8
9
10
      SUBROUTINE BFN(X,BF)
      DIMENSION BF(13)
      DIMENSION FACT(17)
      DO 70 M=0,LAST
         XF = 1
         IF(M.NE.0) XF = FACT(M)
         Y = Y + XF
 70   CONTINUE
      BF(1)=Y
      END