[fpc-pascal]compiler bug?

[Peter Vreman]

> The following program compiles but crashes with an integer range error
> when it gets to the comparison:
>
> {$R+}
> var
>   a : cardinal;
>   b : longint;
> begin
>   a := 0;
>   b := -1;
>   if a > b then writeln ('OK');
> end.
>
> Am I missing something, or is this a compiler bug?

This is a bug. Added it as tb0447 to the testsuite.

Workaround is to use int64(a) in the comparison