freepascal.compiler/tests/tbs/tb0088.pp

{ Old file: tbs0104.pp }
{ cardinal greater than $7fffffff aren't written        OK 0.99.1 (FK) }

{$ifdef go32v2}
uses
   dpmiexcp;
{$endif}

{ Two cardinal type bugs }
var
  c : cardinal;
begin
  c:=$80000000;
  writeln(c);
  c:=$80001234;
  writeln(c);
  c:=$ffffffff;
  writeln(c);
end.