fpcsrc/tests/tbs/ub0421c.pp


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

unit ub0421c;
interface

{$mode objfpc}

type
  cl1=class
    f1:longint;
    constructor create;
  end;

implementation

    constructor cl1.create;
    begin
      f1 := 10;
    end;

end.