{$MODE OBJFPC}
{$INCLUDE blank.inc}
{$CODEPAGE UTF8}
{$MODESWITCH ADVANCEDRECORDS+}
{$ASSERTIONS ON}
unit unit3;

interface

type
   TTest3ClassA = class
      constructor Create();
   end;
   TTest3ClassB = class
      constructor Create();
   end;

implementation

constructor TTest3ClassA.Create();
begin
end;

constructor TTest3ClassB.Create();
begin
end;

procedure Test3A();
begin
end;

procedure Test3B();
begin
end;

procedure Test3C();
begin
end;

procedure Test3D();
begin
end;

procedure Test3E();
begin
end;

procedure Test3F();
begin
end;

end.