! Tests WHERE statement with a data dependency | |
program where_4 | |
integer, dimension(5) :: a | |
integer, dimension(5) :: b | |
a = (/1, 2, 3, 4, 5/) | |
b = (/1, 0, 1, 0, 1/) | |
where (b .ne. 0) | |
a(:) = a(5:1:-1) | |
endwhere | |
if (any (a .ne. (/5, 2, 3, 4, 1/))) call abort | |
end program |