URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [reassoc_2.f90] - Blame information for rev 437

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


! { dg-do compile }
! { dg-options "-O3 -ffast-math -fdump-tree-optimized" }
 
! Make sure that FRE does not replace c with b in d = c - 5
 
function test(a)
  real a, b, c, d
  b = a + 5.
  c = (a + 5.)
  d = c - 5.
  call foo(b)
  test = d
end
 
! { dg-final { scan-tree-dump "- 5" "optimized" } }
! { dg-final { cleanup-tree-dump "optimized" } }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-O3 -ffast-math -fdump-tree-optimized" }`
3
4			`! Make sure that FRE does not replace c with b in d = c - 5`
5
6			`function test(a)`
7			`real a, b, c, d`
8			`b = a + 5.`
9			`c = (a + 5.)`
10			`d = c - 5.`
11			`call foo(b)`
12			`test = d`
13			`end`
14
15			`! { dg-final { scan-tree-dump "- 5" "optimized" } }`
16			`! { dg-final { cleanup-tree-dump "optimized" } }`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [reassoc_2.f90] - Blame information for rev 437