URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [block-2.f] - Rev 322
Go to most recent revision | Compare with Previous | Blame | View Log
SUBROUTINE MATRIX_MUL_UNROLLED (A, B, C, L, M, N) DIMENSION A(L,M), B(M,N), C(L,N) DO 100 K = 1, N DO 100 I = 1, L C(I,K) = 0. 100 CONTINUE DO 110 J = 1, M, 4 DO 110 K = 1, N DO 110 I = 1, L C(I,K) = C(I,K) + A(I,J) * B(J,K) $ + A(I,J+1) * B(J+1,K) + A(I,J+2) * B(J+2,K) $ + A(I,J+3) * B(J+3,K) 110 CONTINUE RETURN END ! { dg-final { scan-tree-dump-times "number of SCoPs: 2" 1 "graphite" } } ! { dg-final { scan-tree-dump-times "will be loop blocked" 2 "graphite" { xfail *-*-* } } } ! { dg-final { cleanup-tree-dump "graphite" } }
Go to most recent revision | Compare with Previous | Blame | View Log