1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
{ %fail } {$mode objfpc} type tc = class strict private fa: longint; end; tcc = class(tc) property a: longint read fa; end; begin end.