fpcsrc/tests/test/opt/tarmshift.pp


1
2
3
4
5
6
7
8
9
10
11
12

{ %norun }
{ %opt=-O2 }
var
  i : longint;

begin
  i:=1234;
  i:=i shl 23;
  i:=i shl 23;
  if i<>0 then
    halt(1);
end.