freepascal.compiler/bugs/bug0202.pp

program silly;

procedure compare(i,j : integer);
begin
   case (i>j) of
     true : begin
                
            end;
     false : begin
                
             end;
   end;
end;

begin
end.