fpcsrc/tests/tbs/tb0085.pp


1
2
3
4
5
6
7
8
9
10

{ 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.