t_id
506
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
524562810 | 948036 | True | False | Successfully run |
Record count: 1
{ Old file: tbs0333.pp } { } {$ifdef cpu68k} {$define COMP_IS_INT64} {$endif cpu68k} var a,b : comp; s1,s2 : string; begin a:=11384563; b:=a*a; {$ifdef COMP_IS_INT64} str(a*a,s1); str(b,s2); {$else not COMP_IS_INT64} str(a*a:0:0,s1); str(b:0:0,s2); {$endif COMP_IS_INT64} writeln(s1); writeln(s2); if (s1<>'129608274700969') or (s2<>'129608274700969') then begin writeln('Error with comp type rounding'); halt(1); end; end.