Răsfoiți Sursa

+ add test for already fixed Mantis #24283

git-svn-id: trunk@44249 -
svenbarth 5 ani în urmă
părinte
comite
8003f675c5
2 a modificat fișierele cu 23 adăugiri și 0 ștergeri
  1. 1 0
      .gitattributes
  2. 22 0
      tests/webtbs/tw24283.pp

+ 1 - 0
.gitattributes

@@ -17326,6 +17326,7 @@ tests/webtbs/tw24197.pp svneol=native#text/plain
 tests/webtbs/tw2421.pp svneol=native#text/plain
 tests/webtbs/tw2421.pp svneol=native#text/plain
 tests/webtbs/tw2423.pp svneol=native#text/plain
 tests/webtbs/tw2423.pp svneol=native#text/plain
 tests/webtbs/tw2425.pp svneol=native#text/plain
 tests/webtbs/tw2425.pp svneol=native#text/plain
+tests/webtbs/tw24283.pp svneol=native#text/pascal
 tests/webtbs/tw24318.pp svneol=native#text/plain
 tests/webtbs/tw24318.pp svneol=native#text/plain
 tests/webtbs/tw2432.pp svneol=native#text/plain
 tests/webtbs/tw2432.pp svneol=native#text/plain
 tests/webtbs/tw2435.pp svneol=native#text/plain
 tests/webtbs/tw2435.pp svneol=native#text/plain

+ 22 - 0
tests/webtbs/tw24283.pp

@@ -0,0 +1,22 @@
+{ %NORUN }
+
+program tw24283;
+
+{$mode delphi}{$H+}
+
+type
+  TA<T> = record
+  end;
+
+  TB<T> = class
+  end;
+
+  TC<T> = class(TB<TA<T>>)
+  end;
+
+{ ensure that specialization works as well }
+var
+  t: TC<LongInt>;
+begin
+end.
+