fpcsrc/tests/tbs/ub0421b.pp


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

unit ub0421b  ;
interface
{$mode objfpc}

  uses ub0421c;
type
  cl2=class(cl1)
  end;

 implementation
 end.