1! { dg-options "-O3 -ffast-math -floop-nest-optimize -floop-block -fdump-tree-graphite-all" }
2
3  INTEGER, PARAMETER :: N=1024
4  REAL*8 :: A(N,N), B(N,N), C(N,N)
5  REAL*8 :: t1,t2
6  A=0.1D0
7  B=0.1D0
8  C=0.0D0
9  CALL cpu_time(t1)
10  CALL mult(A,B,C,N)
11  CALL cpu_time(t2)
12  write(6,*) t2-t1,C(1,1)
13END program
14
15SUBROUTINE mult(A,B,C,N)
16  REAL*8 :: A(N,N), B(N,N), C(N,N)
17  INTEGER :: I,J,K,N
18  DO J=1,N
19     DO I=1,N
20        DO K=1,N
21           C(I,J)=C(I,J)+A(I,K)*B(K,J)
22        ENDDO
23     ENDDO
24  ENDDO
25END SUBROUTINE mult
26
27! { dg-final { scan-tree-dump "tiled by" "graphite" } }
28