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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [block-2.f] - Blame information for rev 862

Line No.	Rev	Author	Line
1	302	jeremybenn	`SUBROUTINE MATRIX_MUL_UNROLLED (A, B, C, L, M, N)`
2			`DIMENSION A(L,M), B(M,N), C(L,N)`
3
4			`DO 100 K = 1, N`
5			`DO 100 I = 1, L`
6			`C(I,K) = 0.`
7			`100 CONTINUE`
8			`DO 110 J = 1, M, 4`
9			`DO 110 K = 1, N`
10			`DO 110 I = 1, L`
11			`C(I,K) = C(I,K) + A(I,J) * B(J,K)`
12			`$ + A(I,J+1) * B(J+1,K) + A(I,J+2) * B(J+2,K)`
13			`$ + A(I,J+3) * B(J+3,K)`
14			`110 CONTINUE`
15
16			`RETURN`
17			`END`
18
19			`! { dg-final { scan-tree-dump-times "number of SCoPs: 2" 1 "graphite" } }`
20			`! { dg-final { scan-tree-dump-times "will be loop blocked" 2 "graphite" { xfail --* } } }`
21			`! { dg-final { cleanup-tree-dump "graphite" } }`