freepascal.compiler/tests/tbf/tb0257b.pp

{ %FAIL }

unit tb0257b;

{$mode delphi}
{$modeswitch advancedrecords off}

interface

type
  TTest = record
    procedure Test;
  end;

implementation

{ TTest }

procedure TTest.Test;
begin

end;

end.