t_id
238
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=47 Percentage= 94.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Failed to run | 3 | 6.0 | 2024/09/26 19:27:00 178 | 2024/09/26 19:39:00 188 | |
riscv64 | 3 | 100.0 | 2024/09/26 19:27:00 178 | 2024/09/26 19:39:00 188 | |
linux | 3 | 100.0 | 2024/09/26 19:27:00 178 | 2024/09/26 19:39:00 188 | |
3.3.1 | 3 | 100.0 | 2024/09/26 19:27:00 178 | 2024/09/26 19:39:00 188 | |
Successfully run | 47 | 94.0 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
i386 | 4 | 8.5 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
powerpc | 14 | 29.8 | 2024/09/26 19:41:00 35 | 2024/09/26 23:02:00 44 | |
powerpc64 | 17 | 36.2 | 2024/09/26 18:42:00 90 | 2024/09/26 22:29:00 103 | |
wasm32 | 7 | 14.9 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
riscv64 | 5 | 10.6 | 2024/09/26 19:14:00 123 | 2024/09/26 19:59:00 123 | |
linux | 36 | 76.6 | 2024/09/26 18:42:00 90 | 2024/09/26 23:02:00 44 | |
go32v2 | 4 | 8.5 | 2024/09/26 19:54:00 70 | 2024/09/26 22:38:00 79 | |
wasi | 7 | 14.9 | 2024/09/26 19:31:00 339 | 2024/09/26 22:50:00 299 | |
3.3.1 | 31 | 66.0 | 2024/09/26 18:42:00 90 | 2024/09/26 22:50:00 299 | |
3.2.3 | 16 | 34.0 | 2024/09/26 21:17:00 71 | 2024/09/26 23:02:00 44 |
Program trdtxt01; {$ifdef fpc} uses strings; {$else} uses SysUtils; {$endif} procedure test(b: boolean); begin if b then exit; WriteLn('Error : Invalid data read!'); halt(1); end; var T: Text; value_char: char; value_byte: byte; value_shortint : shortint; value_smallint : smallint; value_word : word; value_longint : longint; value_longword : cardinal; value_real : real; value_shortstr : shortstring; value_pchar : array[0..255] of char; Begin Assign(T,'testpc.txt'); Reset(T); { Read all the data in the correct order } { Read some characters } value_char := #0; ReadLn(T,value_char); test(value_char = 'a'); value_char := #0; ReadLn(T,value_char); test(value_char = 'c'); value_char := #0; ReadLn(T,value_char); test(value_char = 'z'); value_char := #0; ReadLn(T,value_char); test(value_char = '#'); { ***** Read some integer values ***** } {**** HEX ****} value_byte := 0; ReadLn(T,value_byte); test(value_byte = 127); value_byte := 0; ReadLn(T,value_byte); test(value_byte = 255); value_byte := 0; ReadLn(T,value_byte); test(value_byte = 51); value_shortint := 0; ReadLn(T,value_shortint); test(value_shortint = -127); {*** Integral *** } value_byte := 0; ReadLn(T,value_byte); test(value_byte = 127); value_byte := 0; ReadLn(T,value_byte); test(value_byte = 255); value_byte := 0; ReadLn(T,value_byte); test(value_byte = 33); value_shortint := 0; ReadLn(T,value_shortint); test(value_shortint = -127); {**** HEX ****} value_word := 0; ReadLn(T,value_word); test(value_word = 32767); value_word := 0; ReadLn(T,value_word); test(value_word = 65535); value_word := 0; ReadLn(T,value_word); test(value_word = 4660); value_smallint := 0; ReadLn(T,value_smallint); test(value_smallint = -32767); {*** Integral *** } value_word := 0; ReadLn(T,value_word); test(value_word = 12700); value_word := 0; ReadLn(T,value_word); test(value_word = 2550); value_word := 0; ReadLn(T,value_word); test(value_word = +33200); value_smallint := 0; ReadLn(T,value_smallint); test(value_smallint = -12700); {**** HEX ****} value_longword := 0; ReadLn(T,value_longword); test(value_longword = +$7FFFFFFF); value_longword := 0; ReadLn(T,value_longword); test(value_longword = $FFFFFFFF); value_longword := 0; ReadLn(T,value_longword); test(value_longword = $12341234); value_longint := 0; ReadLn(T,value_longint); test(value_longint = -$7FFFFFFF); {*** Integral *** } value_longword := 0; ReadLn(T,value_longword); test(value_longword = 12700); value_longword := 0; ReadLn(T,value_longword); test(value_longword = 2550); value_longword := 0; ReadLn(T,value_longword); test(value_longword = +2147483647); value_longint := 0; ReadLn(T,value_longint); { test(value_longint = -2147483648);} { Read some real type values } value_real := 0.0; ReadLn(T,value_real); test(trunc(value_real) = trunc(01234)); value_real := 0.0; ReadLn(T,value_real); test(trunc(value_real) = trunc(1278.1278)); value_real := 0.0; ReadLn(T,value_real); test(trunc(value_real) = trunc(121223.1278E00)); value_real := 0.0; ReadLn(T,value_real); test(trunc(value_real) = trunc(121224.1278e2)); value_real := 0.0; ReadLn(T,value_real); test(trunc(value_real) = trunc(121225.1278E02)); value_real := 0.0; ReadLn(T,value_real); test(trunc(value_real) = trunc(121216.1278E+00)); value_real := 0.0; ReadLn(T,value_real); test(trunc(value_real) = trunc(121227.1278e+2)); value_real := 0.0; ReadLn(T,value_real); test(trunc(value_real) = trunc(121228.1278E+02)); value_real := 0.0; ReadLn(T,value_real); test(trunc(value_real) = trunc(121233.1278E-00)); value_real := 0.0; ReadLn(T,value_real); test(trunc(value_real) = trunc(121234.1278e-2)); { Read some strings } value_shortstr := ''; ReadLn(T,value_shortstr); test(length(value_shortstr) = 255); value_shortstr := ''; ReadLn(T,value_shortstr); test(value_shortstr = 'Hello world!'); value_shortstr := ''; ReadLn(T,value_shortstr); test(length(value_shortstr) = 42); { Read a null terminated value } value_shortstr := ''; ReadLn(T,value_pchar); test(strlen(value_pchar) = 33); { Read a value_charhar and make sure the value is value_chartrl-Z (#26) } ReadLn(T,value_char); test(value_char = #26); Close(T); WriteLn('All tests Ok!'); end.