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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-stable/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [where_14.f90] - Diff between revs 816 and 826

Rev 816	Rev 826
`! Check whether an empty ELSEWHERE works`	`! Check whether an empty ELSEWHERE works`
`program where_14`	`program where_14`
`integer :: a(5)`	`integer :: a(5)`
`integer :: b(5)`	`integer :: b(5)`

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