summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw3967.pp
blob: 305b620a3b5796fdafc4dc17932784ac068aa6a1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
{ Source provided for Free Pascal Bug Report 3967 }
{ Submitted by "luoyonggang" on  2005-05-14 }
{ e-mail: luoyonggang@gmail.com }
var
  i,j,n,m,k,l:longint;
  o,p,q,s:int64;
begin
  s:=1; p:=1;
  for i:=3 downto 1 do begin
    if s*(i+2) mod i=0 then s:=s*(i+2) div i else begin
      s:=s*(i+2);
      p:=p*i;
      {The error is here!If we swap the variable i and the variable p then the value of the variable p is right}
      {But now the value of the vairable p is zero,you see,the value of the vairable p must be 3}
      {The compiler was 1.98}
      if p<>3 then
        halt(1);
    end
  end;
  if p<>3 then
    halt(1);
  writeln('ok');
end.