freepascal.compiler/tests/webtbf/tw11970.pp

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