* 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

1 files changed, 14 insertions, 0 deletions

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.