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/] [where_4.f90] - Diff between revs 303 and 338

Rev 303	Rev 338
`! Tests WHERE statement with a data dependency`	`! Tests WHERE statement with a data dependency`
`program where_4`	`program where_4`
`integer, dimension(5) :: a`	`integer, dimension(5) :: a`
`integer, dimension(5) :: b`	`integer, dimension(5) :: b`

`a = (/1, 2, 3, 4, 5/)`	`a = (/1, 2, 3, 4, 5/)`
`b = (/1, 0, 1, 0, 1/)`	`b = (/1, 0, 1, 0, 1/)`

`where (b .ne. 0)`	`where (b .ne. 0)`
`a(:) = a(5:1:-1)`	`a(:) = a(5:1:-1)`
`endwhere`	`endwhere`
`if (any (a .ne. (/5, 2, 3, 4, 1/))) call abort`	`if (any (a .ne. (/5, 2, 3, 4, 1/))) call abort`
`end program`	`end program`