tests/tbs/tb0302.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

{$mode objfpc}

{ tests forward class types }

type
   tclass1 = class;

   tclass2 = class
      class1 : tclass1;
   end;

var
   c : tclass1;

type
   tclass1 = class(tclass2)
      i : longint;
   end;

begin
   c:=tclass1.create;
   c.i:=12;
end.