|
|
 |
TEST: 060302T08-T
categorystatusCompilation and execution results for Windows (first) and Mono (second)| PASSED | Compiler: 1.2.8.0
Date, time: 2010.08.06, 18:06
Compilation: SUCCESS
Execution: SUCCESS
|
| | PASSED | Compiler: 1.2.8.0
Date, time: 2010.08.06, 22:22
Compilation: SUCCESS
Execution: SUCCESS
(0, 0) Assembly reference not resolved: System.Configuration, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a.
|
|
code
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
| (**
* 6. Expression.
* 6.3. User Defined Operators and Operator Declaration.
* 6.3.2. Basic operators that can be overloaded.
*
* Positive test: points comparison.
*)
module Main;
type {public} Point = object
var { public } x, y : integer;
begin
x := 0;
y := 0;
end Point;
operator "<" (p1, p2 : Point) : boolean;
var d1, d2 : integer;
begin
d1 := p1.x * p1.x + p1.y * p1.y;
d2 := p2.x * p2.x + p2.y * p2.y;
return d1 < d2;
end "<";
var { public }
p1, p2 : Point;
begin
p1.x := 2;
p1.y := 2;
p2.x := 3;
p2.y := 3;
if p1 < p2
then halt(1) else halt(0) end;
end Main.
| information- PASSED - overall positive decision about the test
- NOT PASSED - overall negative decision about the test
- SUCCESS - compilation / execution successful
- ERROR - compilation failed with normal syntax or semantic error
- ABORT - compilation failed because of an internal compiler error
- NOT RUN - the test was not / not supposed to be executed
- FAIL - execution failed
|
|
