fpcsrc/tests/webtbf/tw6970.pp


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

{ %FAIL }
program Project1;
{$mode objfpc}{$H+}

Type

  TClass_A = class
    class procedure DoIt();
  End;

procedure TClass_A.DoIt();
begin
end;

begin
end.