{ %opt=-Sew -vw }

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

type
  tc1=class
  published
    constructor create;
  end;

constructor tc1.create;
begin
end;

begin
end.