tests/webtbs/tw30035a.pp


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

var
  i64: Int64;
  qa, qb: DWord;
begin
  qa := 2147483648;
  qb := 536870912;
{$R+}{$Q+}
  i64 := int64(qa) * int64(qb);
  if i64 <> 1152921504606846976 then
  begin
    Writeln('Error!');
    Halt(1);
  end;
end.