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
379 B
Plaintext
17 lines
379 B
Plaintext
//ww:run
|
|
// Lifted from test/wcc/940_str_forrange_loopvar_run.c
|
|
// sitea_arg_readback: a str for-range binding is u8 when read as a call arg.
|
|
package main;
|
|
fn check(x: u8) i32 = {
|
|
if (x: i32 < 65) { return 1; };
|
|
if (x: i32 > 66) { return 1; };
|
|
return 0;
|
|
};
|
|
export fn main() i32 = {
|
|
let s: str = "AB";
|
|
for (let b .. s) {
|
|
if (check(b) != 0) { return 1; };
|
|
};
|
|
return 0;
|
|
};
|