瀏覽代碼

+ bug0290

Jonas Maebe 26 年之前
父節點
當前提交
0b1a446166
共有 2 個文件被更改,包括 11 次插入0 次删除
  1. 10 0
      bugs/bug0290.pp
  2. 1 0
      bugs/readme.txt

+ 10 - 0
bugs/bug0290.pp

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

+ 1 - 0
bugs/readme.txt

@@ -378,3 +378,4 @@ bug0275.pp   too many warnings
 bug0277.pp   typecasting with const not possible
 bug0281.pp   dup id checking with property is wrong
 bug0289.pp   no hint/note for unused types
+bug0290.pp   problem with storing hex numbers in integers