Checkin tests
[oota-llvm.git] / projects / Stacker / test / shl.st
1 #
2 # SHL test
3 #
4 FORWARD success;
5 FORWARD failure;
6 : show_failure >d SPACE failure ;
7 : MAIN 64 3 << 512 = IF success ELSE show_failure ENDIF ;