fpcsrc/tests/test/cg/tmoddiv1.pp


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

var j,k : integer;

begin
     k:=4;
     if (k div 1 <> 4) then
       halt(1);
     j := k div 1;
     writeln(k div 1, ' ',j);
     if (k div 1 <> 4) or
        (j <> 4)  then
       halt(1);
     if (k mod 1) <> 0 then
       halt(2);
end.