llvm-project/stacker/test/shl.st

8 lines
141 B
Smalltalk

#
# SHL test
#
FORWARD success;
FORWARD failure;
: show_failure >d SPACE failure ;
: MAIN 64 3 << 512 = IF success ELSE show_failure ENDIF ;