t_id
869
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
482196152 | 941183 | True | False | Successfully run |
Record count: 1
{ %version=1.1 } {$ifdef fpc} {$MODE DELPHI} {$endif} const Inf=1/0; NaN=0/0; MinusInf=-Inf; var s : string; error : boolean; begin error:=false; str(Inf,s); writeln('Inf: "',s,'"'); if s<>' +Inf' then error:=true; str(NaN,s); writeln('Nan: "',s,'"'); if s<>' Nan' then error:=true; str(MinusInf,s); writeln('MinusInf: "',s,'"'); if s<>' -Inf' then error:=true; if error then begin writeln('ERROR!'); halt(1); end; end.