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
568 B
Plaintext
17 lines
568 B
Plaintext
//ww:run
|
|
// Runtime half of 940_global_sret_run.c global_branched.
|
|
package main;
|
|
type quad = struct { a: i64, b: i64, c: i64, d: i64 };
|
|
fn mk1() quad = { return quad { a = 1i64, b = 2i64, c = 3i64, d = 4i64 }; };
|
|
fn mk2() quad = { return quad { a = 50i64, b = 0i64, c = 0i64, d = 0i64 }; };
|
|
fn pick(w: i64) quad = { if (w == 1i64) { return mk1(); }; return mk2(); };
|
|
let g: quad;
|
|
export fn main() i32 = {
|
|
g = pick(1i64);
|
|
if (g.a != 1i64) { return 1; };
|
|
if (g.b != 2i64) { return 2; };
|
|
if (g.c != 3i64) { return 3; };
|
|
if (g.d != 4i64) { return 4; };
|
|
return 0;
|
|
};
|