Browse Source

Forgot to commit test mentioned in last commit

git-svn-id: trunk@27465 -
svenbarth 11 years ago
parent
commit
c5050ea645
2 changed files with 22 additions and 0 deletions
  1. 1 0
      .gitattributes
  2. 21 0
      tests/webtbf/tw25915.pp

+ 1 - 0
.gitattributes

@@ -12715,6 +12715,7 @@ tests/webtbf/tw25622.pp svneol=native#text/plain
 tests/webtbf/tw25622a.pp svneol=native#text/plain
 tests/webtbf/tw25788.pp svneol=native#text/pascal
 tests/webtbf/tw25862.pp svneol=native#text/plain
+tests/webtbf/tw25915.pp svneol=native#text/pascal
 tests/webtbf/tw2657.pp svneol=native#text/plain
 tests/webtbf/tw2670.pp svneol=native#text/plain
 tests/webtbf/tw2719.pp svneol=native#text/plain

+ 21 - 0
tests/webtbf/tw25915.pp

@@ -0,0 +1,21 @@
+{ %FAIL }
+
+{$MODE OBJFPC}
+program tw25915;
+
+type
+   TTestClass = class
+      FS: AnsiString;
+      procedure TestMethod();
+   end;
+
+procedure TTestClass.TestMethod();
+begin
+   FS := Default(FS); // 'Error: Identifier not found "FS"' and 'Error: Type identifier expected'
+end;
+
+var
+   S: AnsiString;
+begin
+   S := Default(S); // two times 'Error: Type identifier expected'
+end.