Sign in
llvm
/
llvm
/
refs/heads/release_16
/
.
/
projects
/
Stacker
/
test
/
shl.st
blob: 5919d286be36d731d296559e48e1baca1b3eef37 [
file
] [
log
] [
blame
]
#
# SHL test
#
FORWARD success
;
FORWARD failure
;
:
show_failure
>
d SPACE failure
;
:
MAIN
64
3
<<
512
=
IF success ELSE show_failure ENDIF
;