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