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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [dependency_13.f90] - Diff between revs 154 and 816

Rev 154	Rev 816
`! { dg-do compile }`	`! { dg-do compile }`
`! { dg-options "-O2 -fdump-tree-original" }`	`! { dg-options "-O2 -fdump-tree-original" }`
`integer :: i(5)`	`integer :: i(5)`
`real(4) :: x(5)`	`real(4) :: x(5)`
`equivalence(x,i)`	`equivalence(x,i)`

`i = (/ 1, 0, 3, 5, 0 /)`	`i = (/ 1, 0, 3, 5, 0 /)`
`where (i(1:4) .ne. 0)`	`where (i(1:4) .ne. 0)`
`x(2:5) = -42.`	`x(2:5) = -42.`
`end where`	`end where`
`end`	`end`
`! { dg-final { scan-tree-dump-times "temp" 3 "original" } }`	`! { dg-final { scan-tree-dump-times "temp" 3 "original" } }`
`! { dg-final { cleanup-tree-dump "original" } }`	`! { dg-final { cleanup-tree-dump "original" } }`