summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/webtbf/tw11970.pp
blob: 128339efd4ec306205754cd3201911077ce55b2c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
{ %fail }
unit tw11970;
{$mode objfpc}
{$interfaces corba}
interface

type
  ID3D10EffectScalarVariable = class;

  ID3D10EffectVariable = interface
  end;

  ID3D10EffectVariable_FPC = class(ID3D10EffectVariable)
  end;

  ID3D10EffectScalarVariable = interface(ID3D10EffectVariable)
  end;

  ID3D10EffectScalarVariable_FPC = class(ID3D10EffectVariable_FPC, ID3D10EffectScalarVariable)
  end;

implementation

end.