Hojun-Cho
d456263f7e
The r-prefixed waves absorb the runtime, reject, and byte-compare rows of the migrated native carriers; each fixture is one directory with one case.ww and a //ww:error, //ww:compile, //ww:run, or //ww:run-exit directive covering both frontends.
17 lines
354 B
Plaintext
17 lines
354 B
Plaintext
//ww:run
|
|
package main;
|
|
type wide = struct { a: i64, b: i64, c: i64, d: i64 };
|
|
type tag = (wide | i32);
|
|
fn main() i32 = {
|
|
let x: tag = (wide { a = 1i64, b = 2i64, c = 4i64,
|
|
d = 24i64 }: tag);
|
|
match (x) {
|
|
case let v: wide => {
|
|
let s: i64 = v.a + v.b + v.c + v.d;
|
|
if (s != 31i64) { return 1; };
|
|
return 0;
|
|
};
|
|
case let z: i32 => return 2;
|
|
};
|
|
};
|