|
|
 |
TEST: 174-1-3-T004-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
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
| (**
* 17. Math extensions.
* 17.4. Operators
* 17.4.2. Binary
*
* Positive test: Binary minus
* array + scalar
*)
module Main;
type vi = array *,* of integer;
type vr = array *,* of real;
type vc = array *,* of cardinal;
type iind = array {math} * of integer;
type bind = array {math} * of boolean;
var
ai1 : array {math} 2, 3 of integer;
ai2 : vi;
ar1 : array {math} 2, 3 of real;
ar2 : vr;
ac1 : array {math} 2, 3 of cardinal;
ac2 : vc;
bi1, bi2 : iind;
bb1, bb2 : bind;
ki : integer;
kr : real;
kc : 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]];
ki := 3;
ai2 := ki - ai1;
kr := 2.1;
ar2 := kr - ar1;
kc := 7;
ac2 := kc - ac1;
if (ai2[0, 0] # 4) or (ai2[0, 1] # 1) or (ai2[0, 2] # 6) or (ai2[1, 0] # -1) or (ai2[1, 1] # 8) or (ai2[1, 2] # -3)
then
halt(0);
end;
if (ar2[0, 0] # 1.0) or (ar2[0, 1] # 4.2) or (ar2[0, 2] # -1.0) or (abs(ar2[1, 0] - 6.2) > 0.001) or (abs(ar2[1, 1] + 3.0) > 0.001) or (abs(ar2[1, 2] - 8.2) > 0.001)
then
halt(0);
end;
if (ac2[0, 0] # 6) or (ac2[0, 1] # 5) or (ac2[0, 2] # 4) or (ac2[1, 0] # 3) or (ac2[1, 1] # 2) or (ac2[1, 2] # 1)
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
|
|
