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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [lto/] [pr46036_0.f90] - Blame information for rev 858

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-lto-do link }
! { dg-lto-options {{ -O -flto -ftree-vectorize }} }
 
function no_of_edges(self) result(res)
  integer(kind=kind(1)) :: edge_bit_string
  integer(kind=kind(1)) :: res
  integer(kind=kind(1)) :: e
  do e = 0, 11
     if (.not. btest(edge_bit_string,e)) cycle
     res = res + 1
  end do
end function no_of_edges
 
end program

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-lto-do link }`
2			`! { dg-lto-options {{ -O -flto -ftree-vectorize }} }`
3
4			`function no_of_edges(self) result(res)`
5			`integer(kind=kind(1)) :: edge_bit_string`
6			`integer(kind=kind(1)) :: res`
7			`integer(kind=kind(1)) :: e`
8			`do e = 0, 11`
9			`if (.not. btest(edge_bit_string,e)) cycle`
10			`res = res + 1`
11			`end do`
12			`end function no_of_edges`
13
14			`end program`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [lto/] [pr46036_0.f90] - Blame information for rev 858