t_id
435
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Successfully run | 50 | 100.0 | 2024/06/02 01:33:00 35 | 2024/06/02 02:59:00 0 | |
i386 | 14 | 28.0 | 2024/06/02 01:33:00 35 | 2024/06/02 02:47:00 33 | |
sparc | 1 | 2.0 | 2024/06/02 02:33:00 41 | 2024/06/02 02:33:00 41 | |
x86_64 | 32 | 64.0 | 2024/06/02 01:34:00 16 | 2024/06/02 02:59:00 0 | |
aarch64 | 3 | 6.0 | 2024/06/02 02:36:00 40 | 2024/06/02 02:59:00 0 | |
linux | 46 | 92.0 | 2024/06/02 01:33:00 35 | 2024/06/02 02:59:00 0 | |
solaris | 4 | 8.0 | 2024/06/02 02:33:00 41 | 2024/06/02 02:58:00 0 | |
3.3.1 | 30 | 60.0 | 2024/06/02 01:33:00 35 | 2024/06/02 02:59:00 0 | |
3.2.3 | 20 | 40.0 | 2024/06/02 01:38:00 27 | 2024/06/02 02:57:00 34 |
{ Old file: tbs0236.pp } { Problem with range check of subsets !! compile with -Cr OK 0.99.11 (PFV) } {$R+} program test_set_subrange; uses erroru; type enum = (zero,one,two,three); sub_enum = one..three; prec = ^trec; trec = record dummy : longint; en : enum; next : prec; end; const str : array[sub_enum] of string = ('one','two','three'); procedure test; var hp : prec; t : sub_enum; begin new(hp); hp^.en:=zero; new(hp^.next); hp^.next^.en:=three; t:=hp^.en; Writeln('hp^.en = ',str[hp^.en]); Writeln('hp^.next^.en = ',str[hp^.next^.en]); end; begin require_error(201); test; end.