From 89c9f2b0c2470ffec29da74fa7e01115a5198e59 Mon Sep 17 00:00:00 2001
From: jonas <jonas@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Mon, 25 Feb 2019 21:17:24 +0000
Subject:   * fixed over-eager rejection of tobjecttype.fieldname expression
 after r40785     (mantis #35149)

git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@41474 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 tests/webtbf/tw35149a.pp | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 tests/webtbf/tw35149a.pp

(limited to 'tests/webtbf')

diff --git a/tests/webtbf/tw35149a.pp b/tests/webtbf/tw35149a.pp
new file mode 100644
index 0000000000..b0cab6c482
--- /dev/null
+++ b/tests/webtbf/tw35149a.pp
@@ -0,0 +1,14 @@
+{ %fail }
+
+program project1;
+
+{$mode objfpc}
+type
+  TestObject = object
+  var
+    TestNested: Integer;
+  end;
+
+begin
+  writeln(TestObject.TestNested);
+end. 
-- 
cgit v1.2.1