From 1d1df129f6f893dabec15ba8248b1b50c820b3a7 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sat, 29 May 2004 15:52:33 +0000
Subject: [PATCH] *** empty log message ***

---
 tests/tbs/tb0467.pp | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/tests/tbs/tb0467.pp b/tests/tbs/tb0467.pp
index 125ced4b0d..8132793b98 100644
--- a/tests/tbs/tb0467.pp
+++ b/tests/tbs/tb0467.pp
@@ -1,9 +1,11 @@
 { %version=1.1 }
 {$mode objfpc}
+{$M+}
 uses
   typinfo;
 type
   tmyobject = class
+    protected
       fs : single;
     published
       property s : single read fs write fs default 3.1415;
@@ -14,6 +16,11 @@ var
 
 begin
   myobject:=tmyobject.create;
-  writeln(GetFloatProp(myobject,'S'));
+  SetFloatProp(myobject,'s',3);
+  if GetFloatProp(myobject,'s')<>3 then
+    begin
+      writeln('error');
+      halt(1);
+    end;
   myobject.free;
 end.