freepascal.compiler/tests/test/uthintfn.pp

{ %CPU=wasm32 }
Unit uthintfn;

{$mode objfpc}
{$h+}

interface


type
  {$M+}
  TNested = class
    Type
      TMyInterface = Interface ['{76DC0D03-376C-45AA-9E0C-B3546B0C7208}']
        Procedure DoA(a : Integer);
        Procedure DoA;
        function doB : Integer;
        function doc(a : integer) : integer;
      end;
  end;
 
  
implementation

end.