fpcsrc/tests/tbs/ub0421a.pp


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

unit ub0421a;
interface
{$mode objfpc}

  uses ub0421b;

type
  cl3=class(cl2)
    property f:longint read f1;
  end;

 implementation
 end.