Gitiles
Code Review Sign In
gerrit-public.fairphone.software / fp2-dev / platform / external / llvm / ba4733d901b1c2b994f66707657342b8c81c92bc / . / projects / Stacker / test / shl.st
blob: 5919d286be36d731d296559e48e1baca1b3eef37 [file] [log] [blame]
Chris Lattnere44f1db2003-11-23 18:12:22 +0000[diff] [blame]1#
2# SHL test
3#
4FORWARD success;
5FORWARD failure;
6: show_failure >d SPACE failure ;
7: MAIN 64 3 << 512 = IF success ELSE show_failure ENDIF ;