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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-pr46995.f90] - Blame information for rev 694

Details | Compare with Previous | View Log


! { dg-options "-O -ffast-math -fgraphite-identity -fno-tree-dce" }
 
subroutine foo (m, l, zw)
  integer :: m, i, j, k
  real, dimension(1:9) :: zw
  real :: l, s
  s = 0
  do i = 1, 9
    do j = 1, 2*m
      do k = 1, 2*m
        s = s + 1
      end do
    end do
    l = l + zw(i)*s
  end do
end subroutine foo

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-options "-O -ffast-math -fgraphite-identity -fno-tree-dce" }`
2
3			`subroutine foo (m, l, zw)`
4			`integer :: m, i, j, k`
5			`real, dimension(1:9) :: zw`
6			`real :: l, s`
7			`s = 0`
8			`do i = 1, 9`
9			`do j = 1, 2*m`
10			`do k = 1, 2*m`
11			`s = s + 1`
12			`end do`
13			`end do`
14			`l = l + zw(i)*s`
15			`end do`
16			`end subroutine foo`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-pr46995.f90] - Blame information for rev 694