* problem with hexadecimal values handled differently from decimal

tests/tbs0290.pp

@@ -0,0 +1,22 @@
+Program bug0290;
+
+var i,j : integer;
+
+begin
+  { the following line gives a warning and $ffff is changed to $7fff!}
+  i := $ffff;
+  if i <> $ffff then
+    begin
+      Writeln('i:=$ffff loads ',i,'$7fff if i is integer !');
+    end;
+  j := 65535;
+  if j <> 65535 then
+    begin
+      Writeln('j:=65535 loads ',j,' if j is integer !');
+    end;
+  if ($ffff=65535) and (i<>j) then
+    begin
+      Writeln('i and j are different !!!');
+      Halt(1);
+    end;
+end.