t_id
1556
t_adddate
2005/04/18
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1021981146 | 1027256 | True | False | Successfully run |
Record count: 1
{ 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.