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.0rc2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [where19.f90] - Rev 384
Compare with Previous | Blame | View Log
! Check to ensure result is calculated from unmodified
! version of the right-hand-side in WHERE statements.
program where_19
integer :: a(4)
integer :: b(3)
integer :: c(3)
equivalence (a(1), b(1)), (a(2), c(1))
a = (/1, 2, 3, 4/)
where (b .gt. 1)
c = b
endwhere
if (any (a .ne. (/1, 2, 2, 3/))) &
call abort ()
a = (/1, 2, 3, 4/)
where (c .gt. 1)
b = c
endwhere
if (any (a .ne. (/2, 3, 4, 4/))) &
call abort ()
end program