* new bug

tests/webtbs/tw3893.pp

@@ -0,0 +1,21 @@
+{ Source provided for Free Pascal Bug Report 3893 }
+{ Submitted by "George Bakhtadze" on  2005-04-14 }
+{ e-mail: [email protected] }
+program test;
+
+function GetPropertyValue: Pointer;
+begin
+end;
+
+var
+  Size, Size2: Single;
+  d: Integer;
+  p: Pointer;
+
+begin
+  Size := 9.11;
+//  d := Integer(GetPropertyValue());   // All commented code works
+//  p := GetPropertyValue();
+//  Size2 := single(p);
+  Size2 := single(GetPropertyValue());
+end.