1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
{$mode objfpc} var err : boolean; type TA = class end; TB = class(TA) end; TC = class(TB) end; procedure Test(const A: TA); overload; begin end; procedure Test(const B: TB); overload; begin writeln('ok'); err:=false; end; var X : TC; begin err:=true; Test(X); if err then halt(1); end.