|
 |
TEST: 174-1-2-T01-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   37   38   39   40   41   42   43  
| (**
* 17. Math extensions.
* 17.4. Operators
* 17.4.2. Unary
*
* Positive test: Unary plus
*)
module Main;
var
ai1, ai2 : array {math} 2, 3 of integer;
ar1, ar2 : array {math} 2, 3 of real;
ac1, ac2 : array {math} 2, 3 of cardinal;
begin
ai1 := [[-1, 2, -3], [4, -5, 6]];
ar1 := [[1.1, -2.1, 3.1], [-4.1, 5.1, -6.1]];
ac1 := [[1, 2, 3], [4, 5, 6]];
ai2 := +ai1;
ar2 := +ar1;
ac2 := +ac1;
if (ai2[0, 0] # -1) or (ai2[0, 1] # 2) or (ai2[0, 2] # -3) or (ai2[1, 0] # 4) or (ai2[1, 1] # -5) or (ai2[1, 2] # 6)
then
halt(0);
end;
if (ar2[0, 0] # 1.1) or (ar2[0, 1] # -2.1) or (ar2[0, 2] # 3.1) or (ar2[1, 0] # -4.1) or (ar2[1, 1] # 5.1) or (ar2[1, 2] # -6.1)
then
halt(0);
end;
if (ac2[0, 0] # 1) or (ac2[0, 1] # 2) or (ac2[0, 2] # 3) or (ac2[1, 0] # 4) or (ac2[1, 1] # 5) or (ac2[1, 2] # 6)
then
halt(0);
end;
halt(1);
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
|
|