From 95721dca7e443451476672d28fd9ecdfc64712e6 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 15 Dec 2004 16:03:15 +0000
Subject: [PATCH]   * new bug

---
 tests/webtbf/tw3450.pp | 23 +++++++++++++++++++++++
 tests/webtbf/uw3450.pp | 18 ++++++++++++++++++
 2 files changed, 41 insertions(+)
 create mode 100644 tests/webtbf/tw3450.pp
 create mode 100644 tests/webtbf/uw3450.pp

diff --git a/tests/webtbf/tw3450.pp b/tests/webtbf/tw3450.pp
new file mode 100644
index 0000000000..01f339cfff
--- /dev/null
+++ b/tests/webtbf/tw3450.pp
@@ -0,0 +1,23 @@
+{ %fail }
+
+{ Source provided for Free Pascal Bug Report 3450 }
+{ Submitted by "Vincent Snijders" on  2004-12-11 }
+{ e-mail: vsnijders@quicknet.nl }
+
+{$mode objfpc}{$H+}
+
+uses
+  uw3450;
+
+var
+  A: TA;
+
+begin
+  A := TA.Create;
+  // no error here
+  with A do
+    I := 9;
+  // this fails, correctly
+  A.I := 9;
+end.
+
diff --git a/tests/webtbf/uw3450.pp b/tests/webtbf/uw3450.pp
new file mode 100644
index 0000000000..b5c03989de
--- /dev/null
+++ b/tests/webtbf/uw3450.pp
@@ -0,0 +1,18 @@
+unit uw3450;
+
+{$mode objfpc}{$H+}
+
+interface
+
+type
+  TA=class
+  private
+    FI: Integer;
+  protected
+    property I: Integer read FI write FI;
+  end;
+
+implementation
+
+end.
+