t_id
1319
t_adddate
2004/07/13
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
{ Source provided for Free Pascal Bug Report 3207 } { Submitted by "Marc Weustink" on 2004-07-11 } { e-mail: marc@freepascal.org } program floatres; {$mode objfpc} function CheckReal: Real; begin Result := 1/2; end; function CheckDouble: Double; begin Result := 1/2; end; function CheckExtended: Extended; begin Result := 1/2; end; var n: Integer; begin for n := 1 to 1000 do CheckReal; for n := 1 to 1000 do CheckDouble; for n := 1 to 1000 do CheckExtended; end.