t_id
747
t_adddate
2003/10/03
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
1022548923 | 1027349 | True | False | Successfully run |
Record count: 1
{ Source provided for Free Pascal Bug Report 976 } { Submitted by } { e-mail: } Program Test_Me; type PDouble = ^Double; var A, B: PDouble; x: Double; Operator + (x: Double; A: PDouble) B: Double; begin B := x + A^; end; { This was wrong because B value is not initialized !! Operator + (x: Single; A: PDouble) B: PDouble; begin B^ := x + A^; end; } begin new (A); new (B); x := 0.5; A^ := x; {--- Addition "Double + Double": OK} B^ := x + A^; writeln (B^:4:2); if B^<>1.0 then Halt(1); {---Identical error messages for addition "PDouble + Double" and "Double + PDouble"} {---in spite of overloaded + operator} // B := A + x; B^ := x + A; writeln (B^:4:2); if B^<>1.0 then Halt(1); end.