fpcsrc/tests/webtbs/tw3281.pp


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

{ %opt=-Sew -vw }

{$ifdef fpc}{$mode objfpc}{$endif}
{$M+}

type
  tc1=class
  published
    constructor create;
  end;

constructor tc1.create;
begin
end;

begin
end.