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

Rev 303	Rev 338
`! Check whether conditional ELSEWHEREs work`	`! Check whether conditional ELSEWHEREs work`
`! (without unconditional ELSEWHERE)`	`! (without unconditional ELSEWHERE)`
`program where_11`	`program where_11`
`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 (a .eq. 2)`	`elsewhere (a .eq. 2)`
`b = 1`	`b = 1`
`elsewhere (a .eq. 3)`	`elsewhere (a .eq. 3)`
`b = 4`	`b = 4`
`elsewhere (a .eq. 4)`	`elsewhere (a .eq. 4)`
`b = 1`	`b = 1`
`elsewhere (a .eq. 5)`	`elsewhere (a .eq. 5)`
`b = 5`	`b = 5`
`endwhere`	`endwhere`
`if (any (b .ne. (/3, 1, 4, 1, 5/))) &`	`if (any (b .ne. (/3, 1, 4, 1, 5/))) &`
`call abort`	`call abort`
`end program`	`end program`