usr/share/fpcsrc/3.2.0/tests/test/opt/tarmsa1.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / test / opt / tarmsa1.pp

{ %opt=-O2 }
procedure test;
var
  a, b: cardinal;
begin
  a:=$ffffffff;
  b:=(a shr 24) and $3f;
  if b<>$3f then
    halt(1);
end;

begin
  test;
end.