freepascal.compiler/tests/tbf/tb0208.pp

{ %fail }
{ %opt=-Sew }

procedure test;
var
  b: byte;
begin
  case b of
    1: b:=1;
  end;
end;

begin
  test;
end.