no message

tests/tbs/tb0467.pp

@@ -1,3 +1,7 @@
+{ %version=1.1 }
+{$mode objfpc}
+uses
+  typinfo;
 type
   tmyobject = class
       fs : single;
@@ -5,5 +9,11 @@ type
       property s : single read fs write fs default 3.1415;
   end;
 
+var
+  myobject : tmyobject;
+
 begin
-end.
+  myobject:=tmyobject.create;
+  writeln(GetFloatProp(myobject,'S'));
+  myobject.free;
+end.