t_id
634
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525342104 | 948168 | True | False | Successfully run |
Record count: 1
var nc : integer; test_w : word; procedure array_test(b: integer; parr: array of word; c: integer);cdecl; begin nc:=c; test_w:=parr[2]; end; begin nc:=5; test_w:=$abcd; array_test(0,[1,2,3,4],56); if (nc<>56) or (test_w<>3) then begin Writeln('Wrong code generated'); end; end.