Make the Ord Module independent of Unique order
[ghc.git] / testsuite / tests / cps / cps019.cmm
1 // Verify block jumping to continuations works right
2
3 foo() {
4   bits32 x, y, z;
5   x = x;
6   (x) = foreign "C--" bar() "safe";
7 L:
8   y = y;
9   foreign "C--" baz() "safe";
10   if (y) { z = z; goto L; }
11   else { z = z; goto L; }
12 }