*** empty log message ***

tests/webtbs/tw2041.pp

@@ -0,0 +1,12 @@
+{ %version=1.1}
+{$mode objfpc}
+
+type
+  ITest = interface                                                                                       
+    procedure Put(Key: Integer; Item: IUnknown);                                                                        
+    function Get(Key: Integer): IUnknown;                                                                              
+    property Item[Key: Integer]: IUnknown read Get write Put; default;                                                 
+  end;
+
+begin
+end.