fpcsrc/tests/test/tsymlibrary1.pp


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

{$ifdef fpc}
{$mode objfpc}
{$endif}
type
  TSomething = class
  public
    class procedure DoSomething; library;
  end;

class procedure TSomething.DoSomething;
begin
end;

begin
  TSomething.DoSomething;
end.