freepascal.compiler/tests/tbf/tb0195.pp

{ %fail }
{ %opt=-Sew }

var
  a: longint;
begin
  a := not a;
end.