fpcsrc/tests/tbs/tb0102.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

{ Old file: tbs0121.pp }
{ cardinal -> byte conversion not work (and crashes)    OK 0.99.6 (FK) }

{$R+}
var

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

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