blob: ea350b2f7af7305903c12323ba8b0ae8d1ec6547 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
{ 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.
|
