trunc.nqp

#!/usr/bin/env nqp                                                                                                                                                           

sub foo(int64 $x) {
    my int16 $y := $x;
    my int64 $z := $y;
    return $z;
}

my int $i := 0;
while ($i++ < 100_000) {
    if (foo(100_000) != -31072) {
        nqp::die("ERROR");
    }
}