Jonas Maebe 26 лет назад
Родитель
Сommit
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