blob: df3c8585a3e823ca4313efdb3b2a9f904fab4d19 (
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
{ Source provided for Free Pascal Bug Report 2976 }
{ Submitted by "Soeren Haastrup" on 2004-02-17 }
{ e-mail: haastrupsoeren@hotmail.com }
Type vector=array[1..2] of double;
pair=record
v1:double;
v2:vector;
end;
operator := (x:shortint) r:pair;
var i:longint;
Begin
r.v1:=x;
for i:=1 to 2 do r.v2[i]:=0;
End;
operator := (x:double) r:pair;
var i:longint;
Begin
r.v1:=x;
for i:=1 to 2 do r.v2[i]:=0;
End;
{
operator + (x:double;p:pair) r:pair; // Marked
var i:longint;
Begin
r.v1:=x+p.v1;
for i:=1 to 2 do r.v2[i]:=p.v2[i];
End;
}
operator + (p:pair;x:double) r:pair;
var i:longint;
Begin
r.v1:=p.v1+x;
for i:=1 to 2 do r.v2[i]:=p.v2[i];
End;
operator + (p1,p2:pair) r:pair;
var i:longint;
Begin
r.v1:=p1.v1+p2.v1;
for i:=1 to 2 do r.v2[i]:=p1.v2[i]+p2.v2[i];
End;
var a,b:pair;
Begin //main
a:=2; //ok
b:=a+a; //ok
a:=2+b; // ups?
End.
|
