freepascal.compiler/bugs/bug0193.pp

{$Q+}
var i: integer;
    b: byte;

begin
  i := 32767;
  i := i + 15;
  b := 255;
  b := b + 18;
  b := 255;
  b := b * 8;
  b := 255;
  b := b * 17
End.