llvm-project/llvm/projects/Stacker/test/shr.st

8 lines
139 B
Smalltalk

#
# SHR test
#
FORWARD success;
FORWARD failure;
: show_failure >d SPACE failure ;
: MAIN 64 3 >> 8 = IF success ELSE show_failure ENDIF ;