mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-02-02 13:48:08 +01:00
19 lines
243 B
ObjectPascal
19 lines
243 B
ObjectPascal
{ Old file: tbs0193.pp }
|
|
{ overflow checking for 8 and 16 bit operations wrong }
|
|
|
|
{$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.
|