1! { dg-do run } 2! Test fix for PR fortran/30207. 3program a 4 implicit none 5 integer, parameter :: i(4) = (/ 1, 1, 1, 1 /) 6 integer :: z(4) = (/ 1, 1, -1, -1 /) 7 where(z < 0) z(:) = 1 8 if (any(z /= i)) call abort 9end program a 10