+ test for implements with alias

git-svn-id: trunk@10384 -

.gitattributes

@@ -7981,6 +7981,7 @@ tests/webtbs/tw10736.pp svneol=native#text/plain
 tests/webtbs/tw10753.pp svneol=native#text/plain
 tests/webtbs/tw10753a.pp svneol=native#text/plain
 tests/webtbs/tw10757.pp svneol=native#text/plain
+tests/webtbs/tw10768.pp svneol=native#text/plain
 tests/webtbs/tw10790.pp svneol=native#text/plain
 tests/webtbs/tw10800.pp svneol=native#text/plain
 tests/webtbs/tw10807.pp svneol=native#text/plain

tests/webtbs/tw10768.pp

@@ -0,0 +1,19 @@
+
+{$ifdef fpc}{$mode delphi}{$endif}
+{$apptype console}
+uses classes;
+Type
+
+  _AppDomain = interface(IDispatch)
+                  end;
+  IJclClrAppDomain = _AppDomain;
+
+TJclClrAppDomain = class(TInterfacedobject, IJclClrAppDomain)
+  private
+    FDefaultInterface: IJclClrAppDomain;
+  protected
+    property DefaultInterface: IJclClrAppDomain read FDefaultInterface implements IJclClrAppDomain;
+  end;
+
+begin
+end.