fpcsrc/tests/webtbs/tw17710.pp


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

{$mode macpas}
program unary;
var
  i : longint;
begin
  if -2 shr 1<>-1 then
    halt(1);
  if -2-2<>-4 then
    halt(1);
  i:=2;
  if -i shr 1<>-1 then
    halt(1);
  if -i-i<>-4 then
    halt(1);
  writeln('ok');
end.