2
0
Эх сурвалжийг харах

Added test for Mantis #15683 which seems to be fixed already.

git-svn-id: trunk@21450 -
svenbarth 13 жил өмнө
parent
commit
a7f95382b6

+ 1 - 0
.gitattributes

@@ -12283,6 +12283,7 @@ tests/webtbs/tw15610.pp svneol=native#text/plain
 tests/webtbs/tw15619.pp svneol=native#text/plain
 tests/webtbs/tw15619.pp svneol=native#text/plain
 tests/webtbs/tw15668.pp svneol=native#text/pascal
 tests/webtbs/tw15668.pp svneol=native#text/pascal
 tests/webtbs/tw1567.pp svneol=native#text/plain
 tests/webtbs/tw1567.pp svneol=native#text/plain
+tests/webtbs/tw15683.pp svneol=native#text/pascal
 tests/webtbs/tw15690.pp svneol=native#text/plain
 tests/webtbs/tw15690.pp svneol=native#text/plain
 tests/webtbs/tw15693.pp svneol=native#text/plain
 tests/webtbs/tw15693.pp svneol=native#text/plain
 tests/webtbs/tw15694.pp svneol=native#text/plain
 tests/webtbs/tw15694.pp svneol=native#text/plain

+ 20 - 0
tests/webtbs/tw15683.pp

@@ -0,0 +1,20 @@
+program tw15683;
+
+{$mode objfpc}
+
+type
+  generic GSomething<TSomeType> = class
+    procedure Method(i :Integer);
+    procedure Method(s :TSomeType);
+  end;
+
+procedure GSomething.Method(i: Integer);
+begin
+end;
+
+procedure GSomething.Method(s: TSomeType);
+begin
+end;
+
+begin
+end.