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] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! { dg-options "-O3 -ffast-math -fdump-tree-optimized" }`	`! { dg-options "-O3 -ffast-math -fdump-tree-optimized" }`

`! Make sure that FRE does not replace c with b in d = c - 5`	`! Make sure that FRE does not replace c with b in d = c - 5`

`function test(a)`	`function test(a)`
`real a, b, c, d`	`real a, b, c, d`
`b = a + 5.`	`b = a + 5.`
`c = (a + 5.)`	`c = (a + 5.)`
`d = c - 5.`	`d = c - 5.`
`call foo(b)`	`call foo(b)`
`test = d`	`test = d`
`end`	`end`

`! { dg-final { scan-tree-dump "- 5" "optimized" } }`	`! { dg-final { scan-tree-dump "- 5" "optimized" } }`
`! { dg-final { cleanup-tree-dump "optimized" } }`	`! { dg-final { cleanup-tree-dump "optimized" } }`