freepascal.compiler/tests/tbf/tb0081.pp

{ %FAIL }
{ Old file: tbf0358.pp }
{  }

{ $version >= 1.1}
type
   ti = interface
     public
       procedure p;
   end;

begin
end.