freepascal.compiler/tests/tbf/tb0092.pp

{ %FAIL }


type
   obj = object
     procedure method1;
     procedure method2;
     end;

  procedure obj.method1;

    procedure obj.method2;

      begin
      end;

    begin
    end;

  begin
  end.