mips/tests/webtbs/tw20998.pp


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

var
  i : int64;

begin
  i:=6400;
  i:=i div 64;
  if i<>100 then
    halt(1);
  i:=6500;
  i:=i div 65;
  if i<>100 then
    halt(1);
  i:=-6400;
  i:=i div 64;
  if i<>-100 then
    halt(1);
  writeln('ok');
end.