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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [where18.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! Check to ensure mask is calculated first in WHERE`	`! Check to ensure mask is calculated first in WHERE`
`! statements.`	`! statements.`
`program where_18`	`program where_18`
`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, 1, 1, 1/)`	`a = (/1, 1, 1, 1/)`
`where (b .eq. 1)`	`where (b .eq. 1)`
`c = 2`	`c = 2`
`elsewhere (b .eq. 2)`	`elsewhere (b .eq. 2)`
`c = 3`	`c = 3`
`endwhere`	`endwhere`
`if (any (a .ne. (/1, 2, 2, 2/))) &`	`if (any (a .ne. (/1, 2, 2, 2/))) &`
`call abort`	`call abort`

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