t_id
195
t_version
1.1
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
t_note
Note: This test requires a C library
Record count: 50
Total = 50
OK=43 Percentage= 86.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Failed to compile | 7 | 14.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
wasm32 | 7 | 100.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
wasi | 7 | 100.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
3.3.1 | 7 | 100.0 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
Successfully run | 43 | 86.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
i386 | 4 | 9.3 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
powerpc | 14 | 32.6 | 2024/09/26 19:41:00 35 | 2024/09/26 23:02:00 44 | |
powerpc64 | 17 | 39.5 | 2024/09/26 18:42:00 90 | 2024/09/26 22:29:00 103 | |
riscv64 | 8 | 18.6 | 2024/09/26 19:14:00 123 | 2024/09/26 19:59:00 123 | |
linux | 39 | 90.7 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
go32v2 | 4 | 9.3 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
3.3.1 | 27 | 62.8 | 2024/09/26 18:42:00 90 | 2024/09/26 22:38:00 79 | |
3.2.3 | 16 | 37.2 | 2024/09/26 21:17:00 71 | 2024/09/26 23:02:00 44 |
{ %version=1.1 } { %NOTE=This test requires a C library } {$mode objfpc} uses strings; {$ifdef win32} {$linklib msvcrt} procedure printf(const formatstr : pchar; const args : array of const);cdecl; external name 'printf'; procedure sprintf(p : pchar;const formatstr : pchar; const args : array of const);cdecl; external name 'sprintf'; const int64prefix='I64'; {$else} {$linklib c} procedure printf(const formatstr : pchar; const args : array of const);cdecl; external; procedure sprintf(p : pchar;const formatstr : pchar; const args : array of const);cdecl; external; const int64prefix='ll'; {$endif} type THandle = longint; const l : longint = 45; ll : int64 = 345; s : pchar = 'Enclosed text'; s2 : pchar = 'next'; si : single = 32.12; d : double = 45.45; e : extended = 74.74; p : pchar = nil; has_errors : boolean = false; begin getmem(p,500); Writeln('Testing C printf function called from FPC code'); // printf('Simple test without arg'#10,[]); Writeln('Testing with single pchar argument'); printf('Text containing "%s" text'#10,[s]); sprintf(p,'Text containing "%s" text'#10,[s]); if strpos(p,'g "Enclosed text" ')=nil then begin writeln('The output of sprintf for pchar is wrong: ',p); has_errors:=true; end; Writeln('Testing with single longint argument'); printf('Text containing longint: %d'#10,[l]); sprintf(p,'Text containing longint: %d'#10,[l]); if strpos(p,'longint: 45')=nil then begin writeln('The output of sprintf for longint is wrong: ',p); has_errors:=true; end; Writeln('Testing with single int64 argument'); printf('Text containing int64: %'+int64prefix+'d'#10,[ll]); sprintf(p,'Text containing int64: %'+int64prefix+'d'#10,[ll]); if strpos(p,'int64: 345')=nil then begin writeln('The output of sprintf for int64 is wrong: ',p); has_errors:=true; end; Writeln('Testing with single single argument'); printf('Text containing single: %f'#10,[si]); sprintf(p,'Text containing single: %f'#10,[si]); if strpos(p,'single: 32.1')=nil then begin writeln('The output of sprintf for double is wrong: ',p); has_errors:=true; end; Writeln('Testing with single double argument'); printf('Text containing double: %f'#10,[d]); sprintf(p,'Text containing double: %f'#10,[d]); if strpos(p,'double: 45.4')=nil then begin writeln('The output of sprintf for double is wrong: ',p); has_errors:=true; end; printf('Text containing long double: %f'#10,[e]); sprintf(p,'Text containing long double: %f'#10,[e]); if strpos(p,'long double: 74.7')=nil then begin writeln('The output of sprintf for long double is wrong:',p); has_errors:=true; end; Writeln('Testing with combined pchar argument'); printf('Text containing "%s" and "%s" text'#10,[s,s2]); sprintf(p,'Text containing "%s" and "%s" text'#10,[s,s2]); if strpos(p,'g "Enclosed text" and "next"')=nil then begin writeln('The output of sprintf for two pchars is wrong: ',p); has_errors:=true; end; Writeln('Testing with single longint argument and pchar'); printf('Text containing longint: %d"%s"'#10,[l,s2]); sprintf(p,'Text containing longint: %d"%s"'#10,[l,s2]); if strpos(p,'longint: 45"next"')=nil then begin writeln('The output of sprintf for longint is wrong: ',p); has_errors:=true; end; Writeln('Testing with single int64 argument and pchar'); printf('Text containing int64: %'+int64prefix+'d"%s"'#10,[ll,s2]); sprintf(p,'Text containing int64: %'+int64prefix+'d"%s"'#10,[ll,s2]); if strpos(p,'int64: 345"next"')=nil then begin writeln('The output of sprintf for int64 is wrong: ',p); has_errors:=true; end; Writeln('Testing with single single argument'); printf('Text containing single: %f"%s"'#10,[si,s2]); sprintf(p,'Text containing single: %f"%s"'#10,[si,s2]); if (strpos(p,'single: 32.1')=nil) or (strpos(p,'"next"')=nil) then begin writeln('The output of sprintf for double is wrong: ',p); has_errors:=true; end; Writeln('Testing with single double argument'); printf('Text containing double: %f"%s"'#10,[d,s2]); sprintf(p,'Text containing double: %f"%s"'#10,[d,s2]); if (strpos(p,'double: 45.4')=nil) or (strpos(p,'"next"')=nil) then begin writeln('The output of sprintf for double is wrong: ',p); has_errors:=true; end; printf('Text containing long double: %f"%s"'#10,[e,s2]); sprintf(p,'Text containing long double: %f"%s"'#10,[e,s2]); if (strpos(p,'long double: 74.7')=nil) or (strpos(p,'"next"')=nil) then begin writeln('The output of sprintf for long double is wrong:',p); has_errors:=true; end; if has_errors then halt(1); end.