
  INTEGER, DIMENSION (16) :: a, b

  b = 1
  WHERE (.TRUE.)
    a = b
  ENDWHERE
END

