t_id
404
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 01:10:00 32 | 2024/05/18 01:55:00 0 | |
i386 | 31 | 62.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:55:00 0 | |
x86_64 | 16 | 32.0 | 2024/05/18 01:28:00 26 | 2024/05/18 01:53:00 0 | |
aarch64 | 3 | 6.0 | 2024/05/18 01:29:00 34 | 2024/05/18 01:46:00 37 | |
linux | 49 | 98.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:55:00 0 | |
go32v2 | 1 | 2.0 | 2024/05/18 01:45:00 54 | 2024/05/18 01:45:00 54 | |
3.3.1 | 29 | 58.0 | 2024/05/18 01:26:00 31 | 2024/05/18 01:53:00 15 | |
3.2.3 | 21 | 42.0 | 2024/05/18 01:10:00 32 | 2024/05/18 01:55:00 0 |
{ Old file: tbs0199.pp } { bugs in mul code OK 0.99.11 (FK) } PROGRAM PRTest; TYPE ptRec = ^tRec; tRec = Record D : DWORD; END; VAR pR1, pR2 : ptRec; BEGIN GetMem(pR1, SizeOf(tRec)); GetMem(pR2, SizeOf(tRec)); pR1^.D := 10; Move(pR1^,pR2^,SizeOf(tRec)); WriteLn(pR1^.D:16,pR2^.D:16); pR1^.D := 1; pR2^.D := pR1^.D*2; { THE BUG IS HERE } WriteLn(pR1^.D:16,pR2^.D:16); if (pR1^.D<>1) or (pR2^.D<>2) then Halt(1); END.