freepascal.compiler/bugs/bug0121.pp

{$R+}
var

  c : cardinal;
  i : integer;
  w : word;
  b : byte;
  si : shortint;

begin
  w:=c;
  i:=c;
  b:=c;
  b:=si;
end.