t_id
214
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
525108068 | 948130 | False | True | Skipping test because for other cpu |
Record count: 1
{ fifth simple array of const test } {$mode objfpc} program test_cdecl_array_of_const; var l : double; const has_errors : boolean = false; procedure test_one_double(args : array of const);cdecl; type pdouble = ^double; var p : pdouble; begin p:=pdouble(@args); l:=p^; end; procedure test_two_doubles(args : array of const);cdecl; var p : pdouble; begin p:=pdouble(@args); cardinal(p):=cardinal(p)+sizeof(double); l:=p^; end; begin l:=4.0; test_one_double([3.45]); if abs(l-3.45)>0.01 then has_errors:=true; l:=4.0; test_one_double([3.45,2.45]); if abs(l-3.45)>0.01 then has_errors:=true; l:=4; test_one_double([3.45,24.25,678.8]); if abs(l-3.45)>0.01 then has_errors:=true; l:=4; test_two_doubles([3.45,4.56]); if abs(l-4.56)>0.01 then has_errors:=true; if has_errors then begin Writeln('cdecl array of const problem'); halt(1); end; end.