fpcsrc/tests/test/trox5.pp


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

{$r-}
var
  l : longint;
begin
  l:=$ff;
  l:=RorByte(l);
  if l<>$ff then
    halt(1);
  l:=RolByte(l);
  if l<>$ff then
    halt(1);
  writeln('ok');
end.