{ Old file: tbs0099.pp }
{ wrong assembler code is genereatoed for range check   OK 0.99.1 (?) }


{$R+}
var w:word;
    s:Shortint;
begin
  w := s;
end.