* add test case for #11777

git-svn-id: trunk@11500 -

.gitattributes

@@ -7547,6 +7547,7 @@ tests/test/tgeneric13.pp svneol=native#text/plain
 tests/test/tgeneric14.pp svneol=native#text/plain
 tests/test/tgeneric15.pp svneol=native#text/plain
 tests/test/tgeneric16.pp svneol=native#text/plain
+tests/test/tgeneric17.pp svneol=native#text/plain
 tests/test/tgeneric2.pp svneol=native#text/plain
 tests/test/tgeneric3.pp svneol=native#text/plain
 tests/test/tgeneric4.pp svneol=native#text/plain

tests/test/tgeneric17.pp

@@ -0,0 +1,26 @@
+{$mode objfpc}{$H+}
+
+type
+  generic TGListItem<T> = class(TObject)
+  public
+    FNext: TGListItem;
+    procedure Assign(Source: TGListItem);
+  end;
+
+procedure TGListItem.Assign(Source: TGListItem)
+begin
+  FNext := Source;
+end;
+
+type
+  TIntListItem = specialize TGListItem<Integer>;
+
+var
+  A, B: TIntListItem;
+begin
+  A := TIntListItem.Create;
+  B := TIntListItem.Create;
+  A.Assign(B);
+  if A.FNext <> B then
+    halt(1);
+end.