Browse Source

Mantis #23653 was fixed by partial specializations addition in revision 27861

+ added test

git-svn-id: trunk@27895 -
svenbarth 11 years ago
parent
commit
1a22175553
2 changed files with 27 additions and 0 deletions
  1. 1 0
      .gitattributes
  2. 26 0
      tests/webtbs/tw23653.pp

+ 1 - 0
.gitattributes

@@ -13835,6 +13835,7 @@ tests/webtbs/tw23503.pp svneol=native#text/pascal
 tests/webtbs/tw2351.pp svneol=native#text/plain
 tests/webtbs/tw2351.pp svneol=native#text/plain
 tests/webtbs/tw23568.pp svneol=native#text/plain
 tests/webtbs/tw23568.pp svneol=native#text/plain
 tests/webtbs/tw2363.pp svneol=native#text/plain
 tests/webtbs/tw2363.pp svneol=native#text/plain
+tests/webtbs/tw23653.pp svneol=native#text/pascal
 tests/webtbs/tw23667.pp svneol=native#text/plain
 tests/webtbs/tw23667.pp svneol=native#text/plain
 tests/webtbs/tw23725.pp svneol=native#text/pascal
 tests/webtbs/tw23725.pp svneol=native#text/pascal
 tests/webtbs/tw23744.pp svneol=native#text/plain
 tests/webtbs/tw23744.pp svneol=native#text/plain

+ 26 - 0
tests/webtbs/tw23653.pp

@@ -0,0 +1,26 @@
+unit tw23653;
+
+{$mode objfpc}{$H+}
+
+interface
+
+
+type
+  generic TGClass<T> = class
+    procedure P;
+  end;
+
+implementation
+
+uses
+  gvector;
+
+procedure TGClass.P;
+type
+  TMyVector = specialize TVector<T>;
+var
+  MyVector: TMyVector;
+begin
+end;
+
+end.