* rangecheck error when operands are widened

tests/tbs/tb0447.pp

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