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