Make the Ord Module independent of Unique order
[ghc.git] / testsuite / tests / cps / cps020.cmm
1 // Test for proc points
2
3 foo () {
4   bits32 x, y, z;
5   if (x<3) {
6     y = 1;
7     foreign "C--" bar() "safe";
8     z = 1;
9   } else {
10     y = 2;
11     foreign "C--" baz() "safe";
12     z = 2;
13   }
14   return (x, y, z);
15 }