summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbs/tw1825.pp
blob: 4f9227bc7cc1118b0bc197b18a78a7b69f7dd8cb (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
{ %version=1.1 }

{$mode objfpc}

{ Source provided for Free Pascal Bug Report 1825 }
{ Submitted by "marcov" on  2002-02-19 }
{ e-mail: marco@freepascal.org }
program x;

Type
    IEnumMoniker = Interface (IUnknown)
       ['{00000102-0000-0000-C000-000000000046}']
       End;

begin
end.