fpcsrc/tests/tbs/tb0447.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14

{ %version=1.1 }

{$R+}
var
  a : cardinal;
  b : longint;
begin
  a := 0;
  b := -1;
  if a > b then
    writeln ('OK')
  else
    halt(1);
end.