t_id
1163
t_adddate
2003/10/24
t_result
0
Flag
t_fail
set
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
| Result type | Cat. | Count | Percentage | First date | Last Date |
| Success, compilation failed | 50 | 100.0 | 2024/05/16 21:11:00 44 | 2024/05/16 23:46:00 0 | |
| i386 | 15 | 30.0 | 2024/05/16 22:08:00 35 | 2024/05/16 23:46:00 0 | |
| sparc | 13 | 26.0 | 2024/05/16 23:24:00 38 | 2024/05/16 23:46:00 0 | |
| powerpc | 10 | 20.0 | 2024/05/16 21:11:00 44 | 2024/05/16 22:06:00 76 | |
| x86_64 | 12 | 24.0 | 2024/05/16 22:22:00 29 | 2024/05/16 22:53:00 29 | |
| linux | 12 | 24.0 | 2024/05/16 21:11:00 44 | 2024/05/16 23:46:00 0 | |
| win32 | 3 | 6.0 | 2024/05/16 22:08:00 35 | 2024/05/16 23:38:00 22 | |
| solaris | 35 | 70.0 | 2024/05/16 22:22:00 29 | 2024/05/16 23:46:00 0 | |
| 3.3.1 | 23 | 46.0 | 2024/05/16 22:08:00 35 | 2024/05/16 23:46:00 0 | |
| 3.2.3 | 27 | 54.0 | 2024/05/16 21:11:00 44 | 2024/05/16 23:38:00 38 |
{ %FAIL }
{ second simple array of const test }
{ there is no way to know the address of anything
as the array of const is pushed directly }
{$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; var ll : longint);cdecl;
begin
ll:=5;
end;
begin
l:=4;
test('dummy',[],l);
if l<>5 then
has_errors:=true;
l:=4;
test('dummy',[345],l);
if l<>5 then
has_errors:=true;
if has_errors then
halt(1);
end.