freepascal.compiler/tests/tbf/tb0215c.pp

{ %FAIL }
// it's not allowed to assign a corbainterface to TGuid

{$mode objfpc}

{$INTERFACES COM}
type
  ITest = interface
    ['{0374223C-E460-4CC2-ABFD-7723AAB80CFE}']
  end;

const
  Test_IID: Shortstring = ITest;

begin
end.