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.
20 lines
461 B
Plaintext
20 lines
461 B
Plaintext
//ww:run-exit 0
|
|
package main;
|
|
type ft = (i64 | str | bool);
|
|
fn aski64(v: i64) ft = { return v; };
|
|
fn main() i32 = {
|
|
let arr: [3]i64 = [10i64, 20i64, 30i64];
|
|
let i: i32 = 0;
|
|
let bad: i32 = 0;
|
|
for (i < 3) {
|
|
let v: i64 = arr[i];
|
|
let a: ft = aski64(v);
|
|
let p: u64 = (&a): u64;
|
|
let p2: *i64 = (p + 16u64): *i64;
|
|
let w: i64 = *p2;
|
|
if (w != 0i64) { bad += 1; };
|
|
i += 1;
|
|
};
|
|
return bad;
|
|
};
|