Browse Source

Added test for Mantis #24458 which was fixed in revision 24628.

git-svn-id: trunk@25509 -
svenbarth 12 years ago
parent
commit
2da06b004e
2 changed files with 21 additions and 0 deletions
  1. 1 0
      .gitattributes
  2. 20 0
      tests/webtbs/tw24458.pp

+ 1 - 0
.gitattributes

@@ -13558,6 +13558,7 @@ tests/webtbs/tw2432.pp svneol=native#text/plain
 tests/webtbs/tw2435.pp svneol=native#text/plain
 tests/webtbs/tw2438.pp svneol=native#text/plain
 tests/webtbs/tw2442.pp svneol=native#text/plain
+tests/webtbs/tw24458.pp svneol=native#text/pascal
 tests/webtbs/tw24486.pp svneol=native#text/pascal
 tests/webtbs/tw2452.pp svneol=native#text/plain
 tests/webtbs/tw24536.pp svneol=native#text/plain

+ 20 - 0
tests/webtbs/tw24458.pp

@@ -0,0 +1,20 @@
+{ %NORUN }
+
+program tw24458;
+
+{$mode delphi}
+
+type
+  TA<T: class> = class
+  public
+    procedure Foo(const AValue: T);
+  end;
+
+procedure TA<T>.Foo(const AValue: T);
+begin
+  AValue.Free; // Error: identifier idents no member "Free"
+end; 
+
+begin
+
+end.