mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-05 18:39:35 +02: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.
|