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

Type

  TClass_A = class
    class procedure DoIt();
  End;

procedure TClass_A.DoIt();
begin
end;

begin
end.