freepascal.compiler/tests/tbf/tb0192.pp

{ %norun }
{ %fail }
{$mode delphi}
unit tb0192;

interface

type
  tii = interface(iunknown) end;
  ti2 = interface(iunknown) end;

function a: tii; stdcall;

implementation

function a:ti2;
begin
end;

end.