summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/tbs/tb0161.pp
blob: e0498913094351cbf2ce4c4d6f0000f3ce4a99c9 (plain)
1
2
3
4
5
6
7
8
9
10
11
{ Old file: tbs0192.pp }
{ can't compare boolean result with true/false, because the boolean result is already in the flags             OK 0.99.11 (PFV) }

var
  k,l : word;
begin
  if (k<>l)=false then
   ;
  if (k<>l)=true then
   ;
end.