mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 17:08:01 +02:00
21 lines
466 B
ObjectPascal
21 lines
466 B
ObjectPascal
{ %OPT=-O2 }
|
|
|
|
program tw40003;
|
|
|
|
{ Code triggers faulty optimisation in OptPass2Movx }
|
|
|
|
{$mode objfpc} {$typedaddress on}
|
|
var
|
|
value, thirdByte: uint32;
|
|
begin
|
|
(@value)^ := $11223344 + random(0);
|
|
thirdByte := byte(value shr 16);
|
|
writeln('byte($11223344 shr 16) = $', HexStr(thirdByte, 1 + BsrDWord(thirdByte) div 4), ' (must be $22)');
|
|
if thirdbyte <> 34 then
|
|
begin
|
|
WriteLn('FAIL');
|
|
Halt(1);
|
|
end;
|
|
WriteLn('ok');
|
|
end.
|