mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-09 05:44:12 +01:00
13 lines
124 B
ObjectPascal
13 lines
124 B
ObjectPascal
{ %norun }
|
|
{ %opt=-O2 }
|
|
var
|
|
i : longint;
|
|
|
|
begin
|
|
i:=1234;
|
|
i:=i shl 23;
|
|
i:=i shl 23;
|
|
if i<>0 then
|
|
halt(1);
|
|
end.
|