t_id
1554
t_adddate
2005/04/13
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
950457637 | 1015745 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 3833 } { Submitted by "Joost vd Sluis" on 2005-03-26 } { e-mail: } uses variants,sysutils; var v1,v2 : variant; begin v1 := 255; v2 := 255 + v1; if v2<>2*255 then begin writeln(v2); halt(1); end; v1 := '256'; v2 := 'Hello:' + v1; if v2<>'Hello:256' then begin writeln(v2); halt(1); end; v1 := 255.0; v2 := 255.0 + v1; if v2<>2*255 then begin writeln(v2); halt(1); end; writeln('ok'); end.