freepascal.compiler/tests/webtbf/tw16203.pp

{ %OPT=-vh -Seh -CO }
{ %fail }

var
  B : Byte;
  s: shortint;
begin
  b:=255;
  s:=b;
end.