Make the Ord Module independent of Unique order
[ghc.git] / testsuite / tests / cps / cps001.cmm
1 // Basic function with a call
2
3 foo1 {
4   bits32 x;
5  B:
6   foreign "C--" bar() "safe";
7   x = 3;
8   goto B;
9 }