From 60adebfe280ffea450581aeb3fd1df17553ed124 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Wed, 26 Dec 2018 11:26:04 +0000
Subject: [PATCH] * Mantis #34691 is fixed by previous change regarding
 property access list

git-svn-id: trunk@40657 -
---
 .gitattributes          |  1 +
 tests/webtbf/tw34691.pp | 28 ++++++++++++++++++++++++++++
 2 files changed, 29 insertions(+)
 create mode 100644 tests/webtbf/tw34691.pp

diff --git a/.gitattributes b/.gitattributes
index a4ccacf2ad..7df9a6a000 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -14739,6 +14739,7 @@ tests/webtbf/tw3395.pp svneol=native#text/plain
 tests/webtbf/tw3395a.pp svneol=native#text/plain
 tests/webtbf/tw34355.pp svneol=native#text/pascal
 tests/webtbf/tw3450.pp svneol=native#text/plain
+tests/webtbf/tw34691.pp svneol=native#text/pascal
 tests/webtbf/tw3473.pp svneol=native#text/plain
 tests/webtbf/tw3480.pp svneol=native#text/plain
 tests/webtbf/tw3480a.pp svneol=native#text/plain
diff --git a/tests/webtbf/tw34691.pp b/tests/webtbf/tw34691.pp
new file mode 100644
index 0000000000..f2f28aa3c8
--- /dev/null
+++ b/tests/webtbf/tw34691.pp
@@ -0,0 +1,28 @@
+{ %FAIL }
+
+unit tw34691;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils;
+
+type
+  TObjA = class
+    Icon: String;
+  end;
+
+  {$M+}
+  TObjB = class
+    FObjA: TObjA;
+
+  published
+    property Icon: String read FObjA.Icon;
+  end;
+
+implementation
+
+end.
+