use v6-alpha;

use Test;

plan 1;

{ # L<S04/"The goto statement"/"the implicit default binding">

    my $dollar_underscore;
    { 
        $_ = 42;
        {
            $dollar_underscore = $_;
        }
    }
    is $dollar_underscore, 42, 'bare blocks containing $_ work correctly';
}