t_id
374
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/18 00:34:00 24 | 2024/05/18 01:37:00 36 | |
| i386 | 38 | 76.0 | 2024/05/18 00:34:00 24 | 2024/05/18 01:37:00 36 | |
| x86_64 | 7 | 14.0 | 2024/05/18 01:24:00 26 | 2024/05/18 01:36:00 14 | |
| powerpc64 | 2 | 4.0 | 2024/05/18 01:09:00 101 | 2024/05/18 01:11:00 108 | |
| aarch64 | 3 | 6.0 | 2024/05/18 00:52:00 35 | 2024/05/18 01:35:00 32 | |
| linux | 50 | 100.0 | 2024/05/18 00:34:00 24 | 2024/05/18 01:37:00 36 | |
| 3.3.1 | 28 | 56.0 | 2024/05/18 00:52:00 35 | 2024/05/18 01:37:00 36 | |
| 3.2.3 | 22 | 44.0 | 2024/05/18 00:34:00 24 | 2024/05/18 01:37:00 47 |
{ Old file: tbs0152.pp }
{ End value of loop variable must be calculated before loop variable is initialized. OK 0.99.11 (PM) }
Program tbs0152;
{
Shows wrong evaluation of loop boundaries. First end boundary must
be calculated, only then Loop variable should be initialized.
Change loop variable to J to see what should be the correct output.
}
PROCEDURE LGrow(VAR S : String;C:CHAR;Count:WORD);
VAR I,J :WORD;
BEGIN
I:=ORD(S[0]); { Keeping length in local data eases optimalisations}
IF I'1111111abcedfghij' then
begin
writeln('tbs0152 fails');
halt(1);
end;
end.