bug0290.pp 171 B

12345678910
  1. Program bug0290;
  2. var i: integer;
  3. begin
  4. { the following line gives a warning and $ffff is changed to $7fff!}
  5. i := $ffff;
  6. if i <> $ffff then
  7. Writeln('bug!')
  8. end.