fpc/tests/tbs/tbs0193.pp

{$R-}
{$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.