Subversion Repositories openrisc

! 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