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.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [where19.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! Check to ensure result is calculated from unmodified`	`! Check to ensure result is calculated from unmodified`
`! version of the right-hand-side in WHERE statements.`	`! version of the right-hand-side in WHERE statements.`
`program where_19`	`program where_19`
`integer :: a(4)`	`integer :: a(4)`
`integer :: b(3)`	`integer :: b(3)`
`integer :: c(3)`	`integer :: c(3)`
`equivalence (a(1), b(1)), (a(2), c(1))`	`equivalence (a(1), b(1)), (a(2), c(1))`

`a = (/1, 2, 3, 4/)`	`a = (/1, 2, 3, 4/)`
`where (b .gt. 1)`	`where (b .gt. 1)`
`c = b`	`c = b`
`endwhere`	`endwhere`
`if (any (a .ne. (/1, 2, 2, 3/))) &`	`if (any (a .ne. (/1, 2, 2, 3/))) &`
`call abort ()`	`call abort ()`

`a = (/1, 2, 3, 4/)`	`a = (/1, 2, 3, 4/)`
`where (c .gt. 1)`	`where (c .gt. 1)`
`b = c`	`b = c`
`endwhere`	`endwhere`
`if (any (a .ne. (/2, 3, 4, 4/))) &`	`if (any (a .ne. (/2, 3, 4, 4/))) &`
`call abort ()`	`call abort ()`
`end program`	`end program`