t_id
1164
t_adddate
2003/10/24
t_result
0
Flag
t_fail
set
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
-90525250 | 847485 | True | False | Success, compilation failed |
Record count: 1
{ %FAIL } { second simple array of const test } { there is no way know how many args are psuhed for a cdecl'ared araay of const the compiler should complain here } {$mode objfpc} program test_cdecl_array_of_const; var l : longint; const has_errors : boolean = false; procedure test(format : pchar; const args : array of const);cdecl; begin l:=high(args); end; begin l:=4; test('dummy',[234]); if l<>1 then has_errors:=true; if has_errors then halt(1); end.