fpcsrc/tests/tbs/tb0517.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

{ %norun }
{$mode delphi}
unit tb0517;

interface

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

function a(b: longint): tii; stdcall;

implementation

function a;
begin
end;

end.