freepascal.compiler/tests/tf/tf000008.pp

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

  procedure obj.method1;

    procedure obj.method2;

      begin
      end;

    begin
    end;

  begin
  end.