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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [scop-1.f] - Blame information for rev 694

Line No.	Rev	Author	Line
1	694	jeremybenn	`dimension p1(2),t(6,4),b1(2),b2(2),al1(2),al2(2),g1(2),g2(2)`
2			`save`
3			`if(nlin.eq.0) then`
4			`do 20 l=1,2`
5			`ll=2*l`
6			`b2(l)=t(6-ll,ll-1)t(6-ll,ll-1)+t(7-ll,ll-1)t(7-ll,ll-1)`
7			`write(,) b2(l)`
8			`20 continue`
9			`endif`
10			`end`
11
12			`! { dg-final { scan-tree-dump-times "number of SCoPs: 1" 1 "graphite" { xfail --* } } }`
13			`! { dg-final { cleanup-tree-dump "graphite" } }`