fpc/tests/webtbs/tw6036a.pp

13 lines
141 B
ObjectPascal

{$interfaces corba}
{$mode objfpc}
type
imyinterface = interface
['MYINTERFACE']
end;
var
s : string;
begin
s:=imyinterface;
end.