t_id
1319
t_adddate
2004/07/13
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1021979957 | 1027256 | True | False | Successfully run |
Record count: 1
{ 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.