! 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 | |