t_id
406
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/05/17 23:27:00 24 | 2024/05/18 00:48:00 0 | |
| i386 | 21 | 42.0 | 2024/05/17 23:27:00 24 | 2024/05/18 00:48:00 0 | |
| sparc | 16 | 32.0 | 2024/05/17 23:31:00 40 | 2024/05/17 23:55:00 41 | |
| x86_64 | 12 | 24.0 | 2024/05/18 00:05:00 29 | 2024/05/18 00:34:00 0 | |
| aarch64 | 1 | 2.0 | 2024/05/18 00:11:00 33 | 2024/05/18 00:11:00 33 | |
| linux | 11 | 22.0 | 2024/05/17 23:33:00 28 | 2024/05/18 00:48:00 0 | |
| win32 | 3 | 6.0 | 2024/05/17 23:41:00 23 | 2024/05/18 00:21:00 24 | |
| solaris | 36 | 72.0 | 2024/05/17 23:27:00 24 | 2024/05/18 00:34:00 0 | |
| 3.3.1 | 22 | 44.0 | 2024/05/17 23:27:00 24 | 2024/05/18 00:21:00 24 | |
| 3.2.3 | 28 | 56.0 | 2024/05/17 23:33:00 38 | 2024/05/18 00:48:00 0 |
{ Old file: tbs0202.pp }
{ flag results not supported with case OK 0.99.11 (PFV) }
program silly;
var greater : boolean;
procedure error;
begin
Writeln('Error in tbs0202');
Halt(1);
end;
procedure compare(i,j : integer);
begin
case (i>j) of
true : begin
greater:=true;
end;
false : begin
greater:=false;
end;
end;
end;
begin
compare(45,2);
if not greater then
error;
compare(-5,26);
if greater then
error;
end.