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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [pr14741.f90] - Rev 694

Compare with Previous | Blame | View Log

! { dg-options "-O3 -ffast-math -floop-interchange -floop-block -fdump-tree-graphite-all" }

  INTEGER, PARAMETER :: N=1024
  REAL*8 :: A(N,N), B(N,N), C(N,N)
  REAL*8 :: t1,t2
  A=0.1D0
  B=0.1D0
  C=0.0D0
  CALL cpu_time(t1)
  CALL mult(A,B,C,N)
  CALL cpu_time(t2)
  write(6,*) t2-t1,C(1,1)
END program

SUBROUTINE mult(A,B,C,N)
  REAL*8 :: A(N,N), B(N,N), C(N,N)
  INTEGER :: I,J,K,N
  DO J=1,N
     DO I=1,N
        DO K=1,N
           C(I,J)=C(I,J)+A(I,K)*B(K,J)
        ENDDO
     ENDDO
  ENDDO
END SUBROUTINE mult

! { dg-final { scan-tree-dump-times "number of SCoPs: 1" 1 "graphite" { xfail *-*-* } } }
! { dg-final { scan-tree-dump-times "will be loop blocked" 1 "graphite" { xfail *-*-* } } }
! { dg-final { cleanup-tree-dump "graphite" } }

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.