freepascal.compiler/tests/tbf/tb0080.pp

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

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

begin
end.