fpc/tests/webtbf/tw11970.pp
2008-11-02 12:36:31 +00:00

25 lines
417 B
ObjectPascal

{ %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.