URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-16.f] - Blame information for rev 774

Line No.	Rev	Author	Line
1	694	jeremybenn	`SUBROUTINE BFN(X,BF)`
2			`DIMENSION BF(13)`
3			`DIMENSION FACT(17)`
4			`DO 70 M=0,LAST`
5			`XF = 1`
6			`IF(M.NE.0) XF = FACT(M)`
7			`Y = Y + XF`
8			`70 CONTINUE`
9			`BF(1)=Y`
10			`END`