t_id
1123
t_adddate
2003/10/14
t_result
0
Flag
t_fail
set
t_knownrunerror
0
Record count: 50
Total = 50
OK=50 Percentage= 100.00
Result type | Cat. | Count | Percentage | First date | Last Date |
Success, compilation failed | 50 | 100.0 | 2024/05/18 01:28:00 26 | 2024/05/18 02:07:00 36 | |
i386 | 20 | 40.0 | 2024/05/18 01:34:00 3 | 2024/05/18 02:04:00 34 | |
x86_64 | 26 | 52.0 | 2024/05/18 01:28:00 26 | 2024/05/18 02:07:00 36 | |
aarch64 | 4 | 8.0 | 2024/05/18 01:29:00 34 | 2024/05/18 02:03:00 34 | |
linux | 48 | 96.0 | 2024/05/18 01:28:00 26 | 2024/05/18 02:07:00 36 | |
win32 | 1 | 2.0 | 2024/05/18 02:04:00 34 | 2024/05/18 02:04:00 34 | |
go32v2 | 1 | 2.0 | 2024/05/18 01:45:00 54 | 2024/05/18 01:45:00 54 | |
3.3.1 | 31 | 62.0 | 2024/05/18 01:29:00 34 | 2024/05/18 02:07:00 36 | |
3.2.3 | 19 | 38.0 | 2024/05/18 01:28:00 26 | 2024/05/18 02:04:00 35 |
{ %fail } { Source provided for Free Pascal Bug Report 2383 } { Submitted by "Anton Roolaid" on 2003-02-18 } { e-mail: Anton.Roolaid@mail.ee } program VarParameterLoop; const Elements = 3; { Array size } Arr: array [0 .. Elements - 1] of char = ('B', 'U', 'G'); function FindIndex(chElement: char; var iIndex: integer): boolean; begin FindIndex := false; { Not found } { Using a variable parameter should not be allowed } for iIndex := 0 to Elements - 1 do if Arr[iIndex] = chElement then exit(true) { Found } end; var i: integer; begin if FindIndex('U', i) then writeln('The index is ', i) else writeln('Not found') end.