blob: 538d12fb2a9d83652b1acc1bbc6d90b9ebf04ac7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{ Old file: tbs0104.pp }
{ cardinal greater than $7fffffff aren't written OK 0.99.1 (FK) }
{ Two cardinal type bugs }
var
c : cardinal;
begin
c:=$80000000;
writeln(c);
c:=$80001234;
writeln(c);
c:=$ffffffff;
writeln(c);
end.
|
