paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:59:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bug

Browse Source
This commit is contained in:
peter 2005-04-15 15:26:12 +00:00
parent e9860e8c97
commit 70d3cfae07
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/webtbs/tw3893.pp Normal file
View File

@ -0,0 +1,21 @@
{ Source provided for Free Pascal Bug Report 3893 }
{ Submitted by "George Bakhtadze" on 2005-04-14 }
{ e-mail: mirage@avagames.net }
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.