From a42f9109c070d87e5be8150b7b63386b99b0a000 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Wed, 10 Dec 2003 16:32:19 +0000
Subject: [PATCH]   * global properties

---
 tests/test/tprop1.pp | 39 +++++++++++++++++++++++++++++++++++++++
 tests/test/tprop2.pp | 14 ++++++++++++++
 2 files changed, 53 insertions(+)
 create mode 100644 tests/test/tprop1.pp
 create mode 100644 tests/test/tprop2.pp

diff --git a/tests/test/tprop1.pp b/tests/test/tprop1.pp
new file mode 100644
index 0000000000..59a6024ced
--- /dev/null
+++ b/tests/test/tprop1.pp
@@ -0,0 +1,39 @@
+{$mode fpc}
+var
+  FErrno : longint;
+function GetROVar:longint;
+begin
+  GetROVar:=3;
+end;
+function GetErrno:longint;
+begin
+  GetErrno:=FErrno;
+end;
+procedure SetErrno(e:longint);
+begin
+  FErrno:=e;
+end;
+
+property
+  Errno:longint read GetErrno write SetErrno;
+  ROVar:longint read GetROVar;
+
+begin
+  FErrno:=1;
+  if Errno<>1 then
+    begin
+      writeln('Error 1');
+      halt(1);
+    end;
+  Errno:=2;  
+  if Errno<>2 then
+    begin
+      writeln('Error 2');
+      halt(1);
+    end;
+  if ROVar<>3 then
+    begin
+      writeln('Error 3');
+      halt(1);
+    end;
+end.
diff --git a/tests/test/tprop2.pp b/tests/test/tprop2.pp
new file mode 100644
index 0000000000..5e9c359900
--- /dev/null
+++ b/tests/test/tprop2.pp
@@ -0,0 +1,14 @@
+{ %fail }
+{$mode fpc}
+
+function GetROVar:longint;
+begin
+  GetROVar:=3;
+end;
+
+property
+  ROVar:longint read GetROVar;
+
+begin
+  ROVar:=1;
+end.