mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 23:07:55 +02:00
292b36205a
A tests/test/tsymlibrary1.pp U compiler/msgtxt.inc U compiler/msgidx.inc U compiler/htypechk.pas U compiler/msg/errore.msg git-svn-id: trunk@13953 -
16 lines
210 B
ObjectPascal
16 lines
210 B
ObjectPascal
{$ifdef fpc}
|
|
{$mode objfpc}
|
|
{$endif}
|
|
type
|
|
TSomething = class
|
|
public
|
|
class procedure DoSomething; library;
|
|
end;
|
|
|
|
class procedure TSomething.DoSomething;
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
TSomething.DoSomething;
|
|
end. |