Browse Source

* another test

git-svn-id: trunk@5172 -
florian 19 years ago
parent
commit
b3ac0f5d98
2 changed files with 16 additions and 0 deletions
  1. 1 0
      .gitattributes
  2. 15 0
      tests/tbf/tb0190.pp

+ 1 - 0
.gitattributes

@@ -5542,6 +5542,7 @@ tests/tbf/tb0186.pp svneol=native#text/plain
 tests/tbf/tb0187.pp svneol=native#text/plain
 tests/tbf/tb0187.pp svneol=native#text/plain
 tests/tbf/tb0188.pp svneol=native#text/plain
 tests/tbf/tb0188.pp svneol=native#text/plain
 tests/tbf/tb0189.pp svneol=native#text/plain
 tests/tbf/tb0189.pp svneol=native#text/plain
+tests/tbf/tb0190.pp svneol=native#text/plain
 tests/tbf/ub0115.pp svneol=native#text/plain
 tests/tbf/ub0115.pp svneol=native#text/plain
 tests/tbf/ub0149.pp svneol=native#text/plain
 tests/tbf/ub0149.pp svneol=native#text/plain
 tests/tbf/ub0158a.pp svneol=native#text/plain
 tests/tbf/ub0158a.pp svneol=native#text/plain

+ 15 - 0
tests/tbf/tb0190.pp

@@ -0,0 +1,15 @@
+{ %fail }
+{$mode objfpc}
+type
+  c = class(TObject)
+    function a: longint;
+  end;
+
+function c.a: longint;
+begin
+  result := 1;
+end;
+
+var b: c.a;
+begin
+end.