|
1 |
| -proc testGeneric(arg: bool, type t, type tt) { |
2 |
| - var i: t = 0; |
3 |
| - var u: tt = 0; |
4 |
| - if arg then return i; |
5 |
| - else return u; |
6 |
| -} |
7 |
| - |
8 |
| -proc testGenericCast(arg: bool, type t, type tt) { |
9 |
| - var zero: uint(8); |
10 |
| - if arg then return zero:t; |
11 |
| - else return zero:tt; |
12 |
| -} |
13 |
| - |
14 |
| -proc testParamGenericCast(arg: bool, type t, type tt) { |
15 |
| - if arg then return 0:t; |
16 |
| - else return 0:tt; |
17 |
| -} |
18 |
| - |
19 |
| -proc testExpression(arg: bool, type t, type tt) { |
20 |
| - var zero: uint(8); |
21 |
| - var x = if arg then zero:t else zero:tt; |
22 |
| - writeln("testExpression: when ", arg:string, " ", t:string, " ", |
23 |
| - tt:string, " then ", x.type:string); |
24 |
| -} |
25 |
| - |
26 |
| -proc testParamExpression(arg: bool, type t, type tt) { |
27 |
| - var x = if arg then 0:t else 0:tt; |
28 |
| - writeln("testParamExpression: when ", arg:string, " ", t:string, " ", |
29 |
| - tt:string, " then ", x.type:string); |
30 |
| -} |
31 |
| - |
32 |
| -const A = [true, false]; |
33 |
| - |
34 |
| -const Ti = (0:int(8), 0:int(16), 0:int(32), 0:int(64)); |
35 |
| -const Tu = (0:uint(8), 0:uint(16), 0:uint(32), 0:uint(64)); |
36 |
| - |
37 |
| -for a in A { |
38 |
| - for ti in Ti { |
39 |
| - for tti in Ti { |
40 |
| - var xxx = testGeneric(a, ti.type, tti.type); |
41 |
| - writeln("testGeneric: when ", a:string, " ", ti.type:string, " ", |
42 |
| - tti.type:string, " then ", xxx.type:string); |
43 |
| - var yyy = testGenericCast(a, ti.type, tti.type); |
44 |
| - writeln("testGenericCast: when ", a:string, " ", ti.type:string, " ", |
45 |
| - tti.type:string, " then ", yyy.type:string); |
46 |
| - testExpression(a, ti.type, tti.type); |
47 |
| - testParamExpression(a, ti.type, tti.type); |
48 |
| - var zzz = testParamGenericCast(a, ti.type, tti.type); |
49 |
| - writeln("testParamGenericCast: when ", a:string, " ", ti.type:string, " ", |
50 |
| - tti.type:string, " then ", zzz.type:string); |
51 |
| - } |
52 |
| - for tu in Tu { |
53 |
| - testExpression(a, ti.type, tu.type); |
54 |
| - testExpression(a, tu.type, ti.type); |
55 |
| - testParamExpression(a, ti.type, tu.type); |
56 |
| - testParamExpression(a, tu.type, ti.type); |
57 |
| - var x = testGeneric(a, ti.type, tu.type); |
58 |
| - writeln("testGeneric: when ", a:string, " ", ti.type:string, " ", |
59 |
| - tu.type:string, " then ", x.type:string); |
60 |
| - var xx = testGeneric(a, tu.type, ti.type); |
61 |
| - writeln("testGeneric: when ", a:string, " ", tu.type:string, " ", |
62 |
| - ti.type:string, " then " , xx.type:string); |
63 |
| - |
64 |
| - var y = testGenericCast(a, ti.type, tu.type); |
65 |
| - writeln("testGenericCast: when ", a:string, " ", ti.type:string, " ", |
66 |
| - tu.type:string, " then " , y.type:string); |
67 |
| - var yy = testGenericCast(a, tu.type, ti.type); |
68 |
| - writeln("testGenericCast: when ", a:string, " ", tu.type:string, " ", |
69 |
| - ti.type:string, " then " , yy.type:string); |
70 |
| - |
71 |
| - var z = testParamGenericCast(a, ti.type, tu.type); |
72 |
| - writeln("testParamGenericCast: when ", a:string, " ", ti.type:string, " ", |
73 |
| - tu.type:string, " then ", z.type:string); |
74 |
| - var zz = testParamGenericCast(a, tu.type, ti.type); |
75 |
| - writeln("testParamGenericCast: when ", a:string, " ", tu.type:string, " ", |
76 |
| - ti.type:string, " then ", zz.type:string); |
77 |
| - } |
78 |
| - } |
79 |
| - for tz in Tu { |
80 |
| - for tzz in Tu { |
81 |
| - var xxx = testGeneric(a, tz.type, tzz.type); |
82 |
| - writeln("testGeneric: when ", a:string, " ", tz.type:string, " ", |
83 |
| - tzz.type:string, " then " , xxx.type:string); |
84 |
| - var yyy = testGenericCast(a, tz.type, tzz.type); |
85 |
| - writeln("testGenericCast: when ", a:string, " ", tz.type:string, " ", |
86 |
| - tzz.type:string, " then " , yyy.type:string); |
87 |
| - testExpression(a, tz.type, tzz.type); |
88 |
| - testParamExpression(a, tz.type, tzz.type); |
89 |
| - var zzz = testParamGenericCast(a, tz.type, tzz.type); |
90 |
| - writeln("testParamGenericCast: when ", a:string, " ", tz.type:string, " ", |
91 |
| - tzz.type:string, " then ", zzz.type:string); |
92 |
| - } |
93 |
| - } |
94 |
| -} |
| 1 | +require "integralTests.chpl"; |
| 2 | +use integralTests; |
0 commit comments