|
 |
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
|
|