{$MODE OBJFPC} { -*- delphi -*- }
{$CODEPAGE UTF8}
{$MODESWITCH ADVANCEDRECORDS+}
{$ASSERTIONS ON}
unit unit2;

interface

const
   kEOF = -1;

type
   TTest2 = record
     Field1: Integer;
     function Method1(): UTF8String;
   end;
   operator := (const Value: Integer): TTest2;
   operator = (const Op1, Op2: TTest2): Boolean;

implementation

uses unit3, sysutils {$IFOPT C+}, unit1 {$ENDIF};

operator := (const Value: Integer): TTest2;
begin
end;

operator = (const Op1, Op2: TTest2): Boolean;
begin
end;

function TTest2.Method1(): UTF8String;
begin
   Result := '' + IntToStr(0);
end;

end.