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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [graphite/] [id-pr46994.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)
  integer :: m, i, j, k
  real :: s
  s = 0
  do i = 1, 9
    do j = 1, 2*m
      do k = 1, 2*m
        s = s + 1
      end do
    end do
  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)`
4			`integer :: m, i, j, k`
5			`real :: s`
6			`s = 0`
7			`do i = 1, 9`
8			`do j = 1, 2*m`
9			`do k = 1, 2*m`
10			`s = s + 1`
11			`end do`
12			`end do`
13			`end do`
14			`end subroutine foo`

Browse

Tools

Subversion Repositories openrisc

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