t_id
212
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
459426724 | 937501 | True | False | Success, compilation failed |
Record count: 1
{ first simple array of const test } {$mode objfpc} program test_cdecl_array_of_const; var l : longint; const has_errors : boolean = false; procedure test(var ll : longint;format : pchar; const args : array of const);cdecl; begin ll:=5; end; begin l:=4; test(l,'dummy',[]); if l<>5 then has_errors:=true; l:=4; test(l,'dummy',[345]); if l<>5 then has_errors:=true; if has_errors then halt(1); end.