1      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.
7100     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)
14110   CONTINUE
15
16      RETURN
17      END
18
19! Disabled for now as it requires delinearization.
20! { dg-final { scan-tree-dump-times "number of SCoPs: 2" 1 "graphite" { xfail *-*-* } } }
21